14 lines
314 B
Perl
14 lines
314 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Cwd 'abs_path';
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
my $dirname = abs_path(dirname(__FILE__) . "/..");
|
||
|
|
|
||
|
|
print STDERR "Executing perlcritic against $dirname\n";
|
||
|
|
chdir($dirname) or die "Failed to enter $dirname\n";
|
||
|
|
|
||
|
|
exec("perlcritic", ".") or die "Failed to execute perlcritic.";
|