| line |
true |
false |
branch |
|
35
|
0 |
0 |
if $args->[0] and $args->[0] eq "exec" |
|
48
|
0 |
0 |
if $cmd |
|
57
|
0 |
0 |
unless my $call = $self->can("cmd_$cmd") |
|
60
|
0 |
0 |
if ($cmd eq "run") |
|
97
|
0 |
0 |
$version ? : |
|
117
|
0 |
0 |
if ($artifact->provides->{$module}) |
|
119
|
0 |
0 |
unless $reqs->accepts_module($module, $version) |
|
128
|
0 |
0 |
if (@failed) |
|
141
|
0 |
0 |
unless my $snapshot = $self->env->snapshot |
|
158
|
0 |
0 |
if $module eq "perl" |
|
161
|
0 |
0 |
unless ($dist) |
|
162
|
0 |
0 |
if ($version) { } |
|
173
|
0 |
0 |
if $dist->name =~ /^perl-5\.\d+\.\d+$/ |
|
175
|
0 |
0 |
if (defined $version) { } |
|
189
|
0 |
0 |
if ($in_args) |
|
198
|
0 |
0 |
if (@args) { } |
|
201
|
0 |
0 |
$snapshot ? : |
|
202
|
0 |
0 |
if ($dist) { } |
|
|
0 |
0 |
elsif (defined $requirements->requirements_for_module($module)) { } |
|
203
|
0 |
0 |
$version ? : |
|
205
|
0 |
0 |
$version ? : |
|
247
|
0 |
0 |
if @args |
|
250
|
0 |
0 |
if ($snapshot) { } |
|
290
|
0 |
0 |
unless $old |
|
304
|
0 |
0 |
unless ($missing->required_modules) |
|
308
|
0 |
0 |
if ($self->is_identical_requirement($prev, $missing)) |
|
343
|
0 |
0 |
@args ? : |
|
345
|
0 |
0 |
unless my $snapshot = $self->env->snapshot |
|
350
|
0 |
0 |
if (my $dist = $snapshot->find($module)) { } |
|
|
0 |
0 |
elsif (@args) { } |
|
387
|
0 |
0 |
if $indent |
|
396
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $data eq 'HASH') { } |
|
438
|
0 |
0 |
if %bins |
|
503
|
0 |
0 |
unless $module |
|
506
|
0 |
0 |
if $artifact |
|
529
|
0 |
0 |
unless $module |
|
532
|
0 |
0 |
unless my $shell = $ENV{'SHELL'} |
|
547
|
0 |
0 |
if ($ENV{'PERL_CARMEL_USE_DIFFTOOL'}) { } |
|
549
|
0 |
0 |
if $self->verbose |
|
556
|
0 |
0 |
unless my $content = `git show HEAD:$snapshot_path` |
|
605
|
0 |
0 |
if (exists $artifact->provides->{$module}) |
|
613
|
0 |
0 |
if $@ and $@ ne "__FOUND__\n" |
|
634
|
0 |
0 |
if $install_base->exists |
|
652
|
0 |
0 |
if $done{$package->pathname}++ |
|
657
|
0 |
0 |
if ($source->exists) { } |
|
679
|
0 |
0 |
unless my $out = "IO::Compress::Gzip"->new($index_file->openw) |