| line |
true |
false |
branch |
|
42
|
0 |
0 |
unless &GetOptions('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) |
|
48
|
0 |
0 |
unless ($self->{'script'} = shift @ARGV) |
|
55
|
0 |
0 |
unless $exclude_strip |
|
57
|
0 |
0 |
unless ($no_perl_strip) |
|
58
|
0 |
0 |
$cache ? : |
|
60
|
0 |
0 |
if ($exclude) |
|
65
|
0 |
0 |
if (my $files = $dist->files) { } |
|
94
|
0 |
0 |
$self->{'color'} ? : |
|
95
|
0 |
0 |
if ($self->{'strict'}) { } |
|
|
0 |
0 |
elsif (not $self->{'quiet'}) { } |
|
105
|
0 |
0 |
if (not $self->{'quiet'}) |
|
112
|
0 |
0 |
if $self->{'output'} |
|
116
|
0 |
0 |
if (not @other) { } |
|
128
|
0 |
0 |
unless open my $fh, '>', $output_filename |
|
142
|
0 |
0 |
if $self->{'custom_shebang'} |
|
152
|
0 |
0 |
unless open my $fh, '<', $file |
|
155
|
0 |
0 |
if (@lines and index($lines[0], '#!') == 0) |
|
158
|
0 |
0 |
if $shebang[-1] =~ /^\#\!.*perl/ |
|
168
|
0 |
0 |
unless open my $fh, '<', $absolute |
|
172
|
0 |
0 |
if ($self->{'perl_strip'} and not grep({$original =~ /$_/;} @{$$self{'exclude_strip'};})) { } |
|
192
|
0 |
0 |
unless -f $_ |
|
194
|
0 |
0 |
if $_ =~ /$ignore/ |
|
198
|
0 |
0 |
if $absolute =~ /$skip_dir/ |
|
201
|
0 |
0 |
if ($absolute eq $exclude) |
|
206
|
0 |
0 |
unless (/\.(?:pm|ix|al|pl)$/) |
|
220
|
0 |
0 |
if (-d $try) { } |