| line |
true |
false |
branch |
|
38
|
0 |
0 |
unless defined $action |
|
39
|
0 |
0 |
if (my $method = $self->can("action_$action")) { } |
|
52
|
0 |
0 |
scalar @_ && length $_[0] && substr($_[0], 0, 1) ne '-' ? : |
|
60
|
0 |
0 |
unless &GetOptions(\%config, ('mailrc|m|1=s', 'output|packages-details|o|2=s', 'modlist|modlist-data|l|3=s', 'target|t=s', 'test|T!', 'author|a=s', 'usage!', 'help!', 'man!', 'version!')) |
|
74
|
0 |
0 |
if $config{'version'} |
|
75
|
0 |
0 |
if $config{'usage'} |
|
77
|
0 |
0 |
if $config{'help'} |
|
78
|
0 |
0 |
if $config{'man'} |
|
95
|
0 |
0 |
if wantarray |
|
119
|
0 |
0 |
if (defined(my $confout = $self->config($config_key))) |
|
120
|
0 |
0 |
$confout eq '-' ? : |
|
|
0 |
0 |
!length($confout) ? : |
|
125
|
0 |
0 |
if (defined $output) { } |
|
127
|
0 |
0 |
ref $contents ? : |
|
138
|
0 |
0 |
unless -d $basedir |
|
197
|
0 |
0 |
if (ref $path eq 'GLOB') { } |
|
202
|
0 |
0 |
unless -d $path->dir->stringify |
|
207
|
0 |
0 |
if ($is_gz) { } |
|
241
|
0 |
0 |
unless -d $path |
|
270
|
0 |
0 |
if $score != 0 |
|
271
|
0 |
0 |
unless exists $data_for{'module'}{$module} |
|
274
|
0 |
0 |
if (not defined $version) { } |
|
|
0 |
0 |
elsif (defined $previous->{'version'}) { } |
|
275
|
0 |
0 |
if defined $previous->{'version'} |
|
287
|
0 |
0 |
if ($score < 0) |
|
294
|
0 |
0 |
if ($previous) |
|
305
|
0 |
0 |
if wantarray |
|
321
|
0 |
0 |
if $fw < length $module |
|
325
|
0 |
0 |
if wantarray |
|
333
|
0 |
0 |
if -d $target |
|
344
|
0 |
0 |
unless -d $target |
|
348
|
0 |
0 |
$self->execute_tests ? : |
|
362
|
0 |
0 |
unless IPC::Run::run(\@command, \(undef), \*STDOUT, \*STDERR) |
|
379
|
0 |
0 |
unless (-e $file) |
|
401
|
0 |
0 |
if (not -e $file) |
|
418
|
0 |
0 |
unless -d $target |
|
464
|
0 |
0 |
if /^action_/u |