| 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") |
|
109
|
0 |
0 |
$version ? : |
|
129
|
0 |
0 |
if ($artifact->provides->{$module}) |
|
131
|
0 |
0 |
unless $reqs->accepts_module($module, $version) |
|
140
|
0 |
0 |
if (@failed) |
|
153
|
0 |
0 |
unless my $snapshot = $self->snapshot |
|
170
|
0 |
0 |
if $module eq "perl" |
|
173
|
0 |
0 |
unless ($dist) |
|
174
|
0 |
0 |
if ($version) { } |
|
185
|
0 |
0 |
if $dist->name =~ /^perl-5\.\d+\.\d+$/ |
|
187
|
0 |
0 |
if (defined $version) { } |
|
201
|
0 |
0 |
if ($in_args) |
|
210
|
0 |
0 |
if (@args) { } |
|
213
|
0 |
0 |
$snapshot ? : |
|
214
|
0 |
0 |
if ($dist) { } |
|
|
0 |
0 |
elsif (defined $requirements->requirements_for_module($module)) { } |
|
215
|
0 |
0 |
$version ? : |
|
217
|
0 |
0 |
$version ? : |
|
259
|
0 |
0 |
if @args |
|
262
|
0 |
0 |
if ($snapshot) { } |
|
302
|
0 |
0 |
unless $old |
|
316
|
0 |
0 |
unless ($missing->required_modules) |
|
320
|
0 |
0 |
if ($self->is_identical_requirement($prev, $missing)) |
|
355
|
0 |
0 |
@args ? : |
|
357
|
0 |
0 |
unless my $snapshot = $self->snapshot |
|
362
|
0 |
0 |
if (my $dist = $snapshot->find($module)) { } |
|
|
0 |
0 |
elsif (@args) { } |
|
399
|
0 |
0 |
if $indent |
|
408
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $data eq 'HASH') { } |
|
450
|
0 |
0 |
if %bins |
|
515
|
0 |
0 |
unless $module |
|
518
|
0 |
0 |
if $artifact |
|
541
|
0 |
0 |
unless $module |
|
544
|
0 |
0 |
unless my $shell = $ENV{'SHELL'} |
|
559
|
0 |
0 |
if ($ENV{'PERL_CARMEL_USE_DIFFTOOL'}) { } |
|
561
|
0 |
0 |
if $self->verbose |
|
568
|
0 |
0 |
unless my $content = `git show HEAD:$snapshot_path` |
|
617
|
0 |
0 |
if (exists $artifact->provides->{$module}) |
|
625
|
0 |
0 |
if $@ and $@ ne "__FOUND__\n" |
|
646
|
0 |
0 |
if $install_base->exists |
|
664
|
0 |
0 |
if $done{$package->pathname}++ |
|
669
|
0 |
0 |
if ($source->exists) { } |
|
691
|
0 |
0 |
unless my $out = "IO::Compress::Gzip"->new($index_file->openw) |
|
731
|
0 |
0 |
if ($path) |
|
740
|
0 |
0 |
if $try->is_file |