1234567891011121314151617 #!/usr/bin/env perluse strict;use warnings;use utf8;use FindBin;use lib "$FindBin::Bin/../lib";use Perl::Lint qw/lint/;my $linter = Perl::Lint->new();my $violations = $linter->lint_string(<<'...');print "hello!\n";eval "stringy eval!";...use Data::Dumper; warn Dumper($violations);__END__
#!/usr/bin/env perl
use
strict;
warnings;
utf8;
FindBin;
lib
"$FindBin::Bin/../lib"
;
Perl::Lint
qw/lint/
my
$linter
= Perl::Lint->new();
$violations
=
->lint_string(
<<'...');
print "hello!\n";
eval "stringy eval!";
...
Data::Dumper;
warn
Dumper(
);
__END__