| line |
true |
false |
branch |
|
52
|
0 |
0 |
if (ref $_ eq 'CODE') { } |
|
59
|
0 |
0 |
if $args{'copy'} |
|
74
|
0 |
0 |
unless ($self->min_perl_version) |
|
82
|
0 |
0 |
if (-e $self->map_path) |
|
86
|
0 |
0 |
if (-e $self->url_path) |
|
97
|
0 |
0 |
unless $skip_recommends |
|
98
|
0 |
0 |
unless $self->skip_all_test_requires |
|
99
|
0 |
0 |
unless $self->skip_all_build_requires |
|
101
|
0 |
0 |
unless (-e $require_path) |
|
108
|
0 |
0 |
if ($path =~ /\bcpan-Bundle-(.*)/) { } |
|
|
0 |
0 |
elsif (-e 'Build.PL') { } |
|
|
0 |
0 |
elsif (-e 'Makefile.PL') { } |
|
116
|
0 |
0 |
unless open my $fh, '<', 'MANIFEST' |
|
119
|
0 |
0 |
if (/$file/) |
|
124
|
0 |
0 |
unless open $fh, '<', $file |
|
128
|
0 |
0 |
if /^\s*$/ |
|
130
|
0 |
0 |
if (/^=head1\s+CONTENTS/) { } |
|
|
0 |
0 |
elsif (/^=(?!head1\s+CONTENTS)/) { } |
|
138
|
0 |
0 |
unless $flip |
|
140
|
0 |
0 |
if (/(.*?)-/) { } |
|
164
|
0 |
0 |
if $? or not -e 'Build' |
|
165
|
0 |
0 |
if (-e catfile('_build', 'prereqs')) { } |
|
166
|
0 |
0 |
unless my $source = read_file(catfile('_build', 'prereqs')) |
|
169
|
0 |
0 |
unless eval "$eval;1" |
|
180
|
0 |
0 |
unless my $makefile = read_file('Makefile.PL') |
|
182
|
0 |
0 |
if ($makefile =~ /inc::Module::Install/) { } |
|
363
|
0 |
0 |
if $? or not -e 'Makefile' |
|
365
|
0 |
0 |
unless my $prereqs = read_file(catfile('shipwright_prereqs')) |
|
367
|
0 |
0 |
unless eval "$prereqs;1;" |
|
369
|
0 |
0 |
if (-e 'META.yml') |
|
372
|
0 |
0 |
unless my $meta = load_yaml_file('META.yml') |
|
377
|
0 |
0 |
if exists $$meta{'build_requires'}{$_} |
|
382
|
0 |
0 |
unless $$meta{'requires'} |
|
383
|
0 |
0 |
unless $$require{'requires'} |
|
386
|
0 |
0 |
unless $$meta{'recommends'} |
|
387
|
0 |
0 |
unless $$require{'recommends'} |
|
390
|
0 |
0 |
unless $$meta{'build_requires'} |
|
391
|
0 |
0 |
unless $$meta{'configure_requires'} |
|
392
|
0 |
0 |
unless $$require{'build_requires'} |
|
395
|
0 |
0 |
unless $$meta{'test_rquires'} |
|
396
|
0 |
0 |
unless $$require{'test_requires'} |
|
415
|
0 |
0 |
if $? or not -e 'Makefile' |
|
420
|
0 |
0 |
if ($source and $source =~ /({.*})/) |
|
423
|
0 |
0 |
unless eval "$eval;1" |
|
439
|
0 |
0 |
if ($source and $source =~ /({.*})/) |
|
443
|
0 |
0 |
unless eval "$eval;1" |
|
458
|
0 |
0 |
if ($run_failed) |
|
460
|
0 |
0 |
unless my $meta = load_yaml_file('META.yml') |
|
462
|
0 |
0 |
unless $type =~ /requires|recommends/ |
|
468
|
0 |
0 |
unless $$require{$type} |
|
475
|
0 |
0 |
unless dump_yaml_file($require_path, $require) |
|
479
|
0 |
0 |
if (my $require = load_yaml_file($require_path)) { } |
|
483
|
0 |
0 |
unless ($$require{'requires'}) |
|
494
|
0 |
0 |
unless $module |
|
496
|
0 |
0 |
if ($module eq 'perl') |
|
501
|
0 |
0 |
ref $$require{$type}{$module} ? : |
|
507
|
0 |
0 |
if (not $self->include_dual_lifed and 'Module::CoreList'->first_release($module, $version) and 'Module::CoreList'->first_release($module, $version) <= $self->min_perl_version and !'Module::CoreList'->removed_from($module) || 'Module::CoreList'->removed_from($module) > $self->min_perl_version) |
|
517
|
0 |
0 |
if ($self->skip_installed) |
|
518
|
0 |
0 |
if ($module->require) |
|
523
|
0 |
0 |
if ($installed_version and 'version'->parse($installed_version) >= 'version'->parse($version)) |
|
537
|
0 |
0 |
if ($self->_is_skipped($module) and not $self->_is_installed($module)) { } |
|
553
|
0 |
0 |
if (-e $self->map_path) |
|
557
|
0 |
0 |
if ($$map{$module} and $$map{$module} =~ /^cpan-/) { } |
|
564
|
0 |
0 |
unless $name =~ /^cpan-/ |
|
567
|
0 |
0 |
unless (grep {$name eq $_;} @sources) |
|
571
|
0 |
0 |
if ($$require{$type}{$module}{'source'} and $$require{$type}{$module}{'source'} ne 'CPAN') { } |
|
591
|
0 |
0 |
unless ($s->run) |
|
603
|
0 |
0 |
if (-e $self->map_path) |
|
610
|
0 |
0 |
if ($$map{$module} and $$map{$module} =~ /^cpan-/) { } |
|
622
|
0 |
0 |
if $skip_recommends |
|
623
|
0 |
0 |
if $self->skip_all_test_requires |
|
624
|
0 |
0 |
if $self->skip_all_build_requires |
|
642
|
0 |
0 |
if (-e $self->map_path) |
|
645
|
0 |
0 |
if $$map{$module} |
|
657
|
0 |
0 |
if (-e $self->url_path and not -z $self->url_path) |
|
670
|
0 |
0 |
if (-e $self->version_path and not -z $self->version_path) |
|
683
|
0 |
0 |
if (-e $self->version_path and not -z $self->branches_path) |
|
695
|
0 |
0 |
if ($self->skip) |
|
696
|
0 |
0 |
if ($self->skip->{$module}) { } |
|
|
0 |
0 |
elsif (grep {/-/;} keys %{$self->skip;}) { } |
|
706
|
0 |
0 |
if $self->skip->{$name} or $self->skip->{$name_without_prefix} |
|
713
|
0 |
0 |
if ("${module}::" =~ /^$space/) |
|
719
|
0 |
0 |
if ($skip) |
|
734
|
0 |
0 |
unless ($module =~ /-/) |
|
747
|
0 |
0 |
if ($file{$_}) |
|
774
|
3 |
0 |
unless $name =~ /(tar\.gz|tgz)$/ |
|
791
|
0 |
0 |
unless $name =~ /\.(tar\.gz|tgz|tar\.bz2|zip)$/ |
|
796
|
0 |
0 |
if $version |
|
808
|
4 |
5 |
if $self->source =~ /\.(tar.(gz|bz2)|tgz|zip)$/ |
|
818
|
0 |
0 |
if $ENV{'SHIPWRIGHT_LWP_TIMEOUT'} |
|
821
|
0 |
0 |
if (-e $self->source) |
|
824
|
0 |
0 |
if ($res->is_success and $res->header('content-length') == $size) |
|
833
|
0 |
0 |
if ($response->is_success) { } |
|
834
|
0 |
0 |
unless open my $fh, '>', $self->source |