| line |
true |
false |
branch |
|
44
|
0 |
0 |
unless $parser->getoptionsfromarray(\@argv, "d|dir=s", \(my $dir = "lib,fatlib,local,extlib"), "e|exclude=s", \my $exclude, "h|help", sub (@) {
$self->show_help;
exit 1;
}
, "o|output=s", \my $output, "q|quiet", \my $quiet, "s|strict", \my $strict, "v|version", sub (@) {
printf "%s %s\n", __PACKAGE__, __PACKAGE__->VERSION;
exit;
}
, "color!", \(my $color = 1), "shebang=s", \my $custom_shebang, "exclude-strip=s\@", \my $exclude_strip, "no-strip|no-perl-strip", \my $no_perl_strip, "cache=s", \my $cache) |
|
50
|
0 |
0 |
unless ($self->{'script'} = shift @argv) |
|
57
|
0 |
0 |
unless $exclude_strip |
|
59
|
0 |
0 |
unless ($no_perl_strip) |
|
60
|
0 |
0 |
$cache ? : |
|
62
|
0 |
0 |
if ($exclude) |
|
67
|
0 |
0 |
if (my $files = $dist->files) { } |
|
95
|
0 |
0 |
$self->{'color'} ? : |
|
96
|
0 |
0 |
if ($self->{'strict'}) { } |
|
|
0 |
0 |
elsif (not $self->{'quiet'}) { } |
|
105
|
0 |
0 |
if (not $self->{'quiet'}) |
|
111
|
0 |
0 |
if $self->{'output'} |
|
115
|
0 |
0 |
if (not @other) { } |
|
126
|
0 |
0 |
unless open my $fh, ">", $output_filename |
|
139
|
0 |
0 |
if $self->{'custom_shebang'} |
|
148
|
0 |
0 |
unless open my $fh, "<", $file |
|
151
|
0 |
0 |
if (@lines and index($lines[0], "#!") == 0) |
|
154
|
0 |
0 |
if $shebang[-1] =~ /^\#\!.*perl/u |
|
163
|
0 |
0 |
unless open my $fh, "<", $absolute |
|
167
|
0 |
0 |
if ($self->{'perl_strip'} and not grep({$original =~ /$_/u;} @{$$self{'exclude_strip'}})) { } |
|
186
|
0 |
0 |
unless -f $_ |
|
188
|
0 |
0 |
if $_ =~ /$ignore/u |
|
192
|
0 |
0 |
if $absolute =~ /$skip_dir/u |
|
195
|
0 |
0 |
if ($absolute eq $exclude) |
|
200
|
0 |
0 |
unless (/\.(?:pm|ix|al|pl)$/u) |
|
213
|
0 |
0 |
if (-d $try) { } |