| 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 {
pod2usage(0);
}
, '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) |
|
47
|
0 |
0 |
unless ($self->{'script'} = shift @ARGV) |
|
53
|
0 |
0 |
$no_perl_strip ? : |
|
55
|
0 |
0 |
unless $exclude_strip |
|
57
|
0 |
0 |
if ($exclude) |
|
62
|
0 |
0 |
if (my $files = $dist->files) { } |
|
77
|
0 |
0 |
$self->{'color'} ? : |
|
78
|
0 |
0 |
if ($self->{'strict'}) { } |
|
|
0 |
0 |
elsif (not $self->{'quiet'}) { } |
|
88
|
0 |
0 |
if (not $self->{'quiet'}) |
|
95
|
0 |
0 |
if $self->{'output'} |
|
99
|
0 |
0 |
if (not @other) { } |
|
111
|
0 |
0 |
unless open my $fh, '>', $output_filename |
|
125
|
0 |
0 |
if $self->{'custom_shebang'} |
|
135
|
0 |
0 |
unless open my $fh, '<', $file |
|
138
|
0 |
0 |
if (@lines and index($lines[0], '#!') == 0) |
|
141
|
0 |
0 |
if $shebang[-1] =~ /^\#\!.*perl/ |
|
151
|
0 |
0 |
unless open my $fh, '<', $absolute |
|
155
|
0 |
0 |
if ($self->{'perl_strip'} and not grep({$original =~ /$_/;} @{$$self{'exclude_strip'};})) { } |
|
175
|
0 |
0 |
unless -f $_ |
|
177
|
0 |
0 |
if $_ =~ /$ignore/ |
|
181
|
0 |
0 |
if $absolute =~ /$skip_dir/ |
|
184
|
0 |
0 |
if ($absolute eq $exclude) |
|
189
|
0 |
0 |
unless (/\.(?:pm|ix|al|pl)$/) |
|
203
|
0 |
0 |
if (-d $try) { } |