| line |
true |
false |
branch |
|
43
|
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", "App::FatPacker::Simple", "App::FatPacker::Simple"->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) |
|
49
|
0 |
0 |
unless ($self->{'script'} = shift @argv) |
|
56
|
0 |
0 |
unless $exclude_strip |
|
58
|
0 |
0 |
unless ($no_perl_strip) |
|
59
|
0 |
0 |
$cache ? : |
|
61
|
0 |
0 |
if ($exclude) |
|
66
|
0 |
0 |
if (my $files = $dist->files) { } |
|
95
|
0 |
0 |
$self->{'color'} ? : |
|
96
|
0 |
0 |
if ($self->{'strict'}) { } |
|
|
0 |
0 |
elsif (not $self->{'quiet'}) { } |
|
106
|
0 |
0 |
if (not $self->{'quiet'}) |
|
113
|
0 |
0 |
if $self->{'output'} |
|
117
|
0 |
0 |
if (not @other) { } |
|
129
|
0 |
0 |
unless open my $fh, ">", $output_filename |
|
143
|
0 |
0 |
if $self->{'custom_shebang'} |
|
153
|
0 |
0 |
unless open my $fh, "<", $file |
|
156
|
0 |
0 |
if (@lines and index($lines[0], "#!") == 0) |
|
159
|
0 |
0 |
if $shebang[-1] =~ /^\#\!.*perl/u |
|
169
|
0 |
0 |
unless open my $fh, "<", $absolute |
|
173
|
0 |
0 |
if ($self->{'perl_strip'} and not grep({$original =~ /$_/u;} @{$$self{'exclude_strip'};})) { } |
|
193
|
0 |
0 |
unless -f $_ |
|
195
|
0 |
0 |
if $_ =~ /$ignore/u |
|
199
|
0 |
0 |
if $absolute =~ /$skip_dir/u |
|
202
|
0 |
0 |
if ($absolute eq $exclude) |
|
207
|
0 |
0 |
unless (/\.(?:pm|ix|al|pl)$/u) |
|
221
|
0 |
0 |
if (-d $try) { } |