| 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 |
|
122
|
0 |
0 |
if (defined(my $confout = $self->config($config_key))) |
|
123
|
0 |
0 |
$confout eq '-' ? : |
|
|
0 |
0 |
!length($confout) ? : |
|
128
|
0 |
0 |
if (defined $output) { } |
|
130
|
0 |
0 |
ref $contents ? : |
|
204
|
0 |
0 |
if (ref $path eq 'GLOB') { } |
|
209
|
0 |
0 |
unless -d $path->dir->stringify |
|
214
|
0 |
0 |
if ($is_gz) { } |
|
273
|
0 |
0 |
if $score != 0 |
|
274
|
0 |
0 |
unless exists $data_for{'module'}{$module} |
|
277
|
0 |
0 |
if (not defined $version) { } |
|
|
0 |
0 |
elsif (defined $previous->{'version'}) { } |
|
278
|
0 |
0 |
if defined $previous->{'version'} |
|
290
|
0 |
0 |
if ($score < 0) |
|
297
|
0 |
0 |
if ($previous) |
|
308
|
0 |
0 |
if wantarray |
|
323
|
0 |
0 |
if $fw < length $module |
|
327
|
0 |
0 |
if wantarray |
|
335
|
0 |
0 |
if -d $target |
|
346
|
0 |
0 |
unless -d $target |
|
350
|
0 |
0 |
$self->execute_tests ? : |
|
364
|
0 |
0 |
unless IPC::Run::run(\@command, \(undef), \*STDOUT, \*STDERR) |
|
381
|
0 |
0 |
unless (-e $file) |
|
403
|
0 |
0 |
if (not -e $file) |
|
420
|
0 |
0 |
unless -d $target |
|
465
|
0 |
0 |
if /^action_/u |