|
@ -6,6 +6,9 @@ my @files = @ARGV; |
|
|
my $params = { |
|
|
my $params = { |
|
|
-theme => 'security', |
|
|
-theme => 'security', |
|
|
}; |
|
|
}; |
|
|
|
|
|
|
|
|
|
|
|
usage() unless @files; |
|
|
|
|
|
|
|
|
for my $file (@files) { |
|
|
for my $file (@files) { |
|
|
next unless -f $file; |
|
|
next unless -f $file; |
|
|
my @critique = critique($params, $file); |
|
|
my @critique = critique($params, $file); |
|
@ -15,3 +18,7 @@ for my $file (@files) { |
|
|
print "\n"; |
|
|
print "\n"; |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
sub usage { |
|
|
|
|
|
say "$0 file1 file2 ..."; |
|
|
|
|
|
} |
|
|