| line |
true |
false |
branch |
|
40
|
0 |
2 |
unless (-e $manifest_path) |
|
44
|
2 |
0 |
if (open my $manfh, $manifest_path) { } |
|
46
|
11310 |
0 |
if (/^(\S+)/) { } |
|
75
|
0 |
153 |
!($_ =~ /[*?{]/) ? : |
|
|
527 |
153 |
-d _ && !($_ =~ /[*?]/) ? : |
|
|
454 |
680 |
-f $_ && !($_ =~ /[*?]/) ? : |
|
79
|
13236 |
12634 |
if -f $_ and exists $MANIFEST{$File::Find::name} |
|
97
|
312 |
258 |
unless $excluded and @$excluded |
|
99
|
252 |
699 |
ref $_ ? : |
|
155
|
0 |
2 |
unless GetOptions 'maintainer=s', \$Maintainer, 'module=s', \$Module, 'files', \$Files, 'check', \$Check, 'checkmani', \$Checkmani, 'opened', \$Opened |
|
168
|
0 |
2 |
if ($Opened) { } |
|
|
0 |
2 |
elsif (@ARGV == 1 and $ARGV[0] =~ /^(?:HEAD|[0-9a-f]{4,40})(?:~\d+)?\^*$/) { } |
|
169
|
0 |
0 |
if @ARGV |
|
171
|
0 |
0 |
if $? |
|
176
|
0 |
0 |
if $? |
|
181
|
0 |
1 |
if @Files and $Maintainer || $Module || $Files |
|
184
|
0 |
0 |
if $mean and -e $mean and $mean ne '.' and not $Files |
|
188
|
0 |
2 |
if defined $Maintainer and exists $Maintainers::Modules{$Maintainer} |
|
191
|
0 |
2 |
if defined $Module and exists $Maintainers::Maintainers{$Module} |
|
216
|
0 |
0 |
if (-e $pat) { } |
|
226
|
0 |
0 |
if exists $ModuleByPat{$file} |
|
231
|
0 |
0 |
if (my(@ToDo) = grep({not defined $ModuleByFile{$_};} keys %ModuleByFile)) |
|
236
|
0 |
0 |
if (@ToDo) |
|
252
|
0 |
0 |
unless keys %ToDo |
|
253
|
0 |
0 |
if (-d $pat) |
|
256
|
0 |
0 |
if ($file =~ /^$pat/i) |
|
271
|
0 |
2 |
if ($Maintainer) { } |
|
|
0 |
2 |
elsif ($Module) { } |
|
|
2 |
0 |
elsif ($Check or $Checkmani) { } |
|
|
0 |
0 |
elsif (@Files) { } |
|
|
0 |
0 |
elsif ($Opened) { } |
|
273
|
0 |
0 |
if ($m =~ /$Maintainer/io or $Maintainers::Maintainers{$m} =~ /$Maintainer/io) |
|
275
|
0 |
0 |
if ($Module) |
|
278
|
0 |
0 |
if ($Files) { } |
|
285
|
0 |
0 |
if ($Module) { } |
|
295
|
0 |
0 |
if ($m =~ /$Module/io) |
|
296
|
0 |
0 |
if ($Files) { } |
|
307
|
1 |
1 |
if (@Files) { } |
|
310
|
3098 |
715 |
if -f $_ |
|
313
|
1 |
0 |
$Checkmani ? : |
|
321
|
0 |
0 |
if (defined $$ModuleByFile{$file}) { } |
|
367
|
2 |
0 |
if (-d $d) { } |
|
369
|
686 |
3127 |
if &$check() |
|
|
1 |
0 |
if @dir |