| line |
true |
false |
branch |
|
60
|
0 |
0 |
-d $_ ? :
|
|
69
|
0 |
0 |
if (defined $opts->{'mkdir'})
|
|
72
|
0 |
0 |
if (-d $dirname) { }
|
|
73
|
0 |
0 |
unless $opts->{'update'}
|
|
86
|
0 |
0 |
if (-d '.git') { }
|
|
87
|
0 |
0 |
unless ($opts->{'force'} or $opts->{'update'})
|
|
103
|
0 |
0 |
unless contains_git_revisions()
|
|
120
|
0 |
0 |
unless -d '.git'
|
|
131
|
0 |
0 |
unless ref $backpan_urls eq 'ARRAY'
|
|
138
|
0 |
0 |
if ($last_commit = eval {
do {
$repo->run('rev-parse', '-q', '--verify', 'cpan/master')
}
})
|
|
143
|
0 |
0 |
$opts->{'tempdir'} ? :
|
|
155
|
0 |
0 |
if $response->is_success
|
|
160
|
0 |
0 |
unless ($response->is_success)
|
|
165
|
0 |
0 |
unless (-e $archive_file)
|
|
172
|
0 |
0 |
unless ($ae->extract('to', $tmp_dir))
|
|
179
|
0 |
0 |
unless ($dir)
|
|
214
|
0 |
0 |
$last_version ? :
|
|
231
|
0 |
0 |
if ($version)
|
|
235
|
0 |
0 |
if ($repo->run('tag', '-l', $tag))
|
|
268
|
0 |
0 |
unless my $dist = $backpan->dist($distname)
|
|
275
|
0 |
0 |
if $opts->{'update'}
|
|
278
|
0 |
0 |
if $existing_releases{$release->version}
|
|
281
|
0 |
0 |
if $release->filename =~ /\.ppm\b/
|
|
291
|
0 |
0 |
unless ($release_added)
|
|
292
|
0 |
0 |
if (not keys %existing_releases) { }
|
|
308
|
0 |
0 |
if (not rev_exists('master')) { }
|
|
323
|
0 |
0 |
unless -d '.git'
|
|
327
|
0 |
0 |
if (not rev_exists('cpan/master') and rev_exists('master'))
|
|
350
|
0 |
0 |
if (delete $opts->{'backpan'})
|
|
359
|
0 |
0 |
if ($last_commit = eval {
do {
$repo->run('rev-parse', '-q', '--verify', 'cpan/master')
}
})
|
|
364
|
0 |
0 |
unless $module
|
|
377
|
0 |
0 |
if ($dist eq 'perl')
|
|
385
|
0 |
0 |
if ($last_version and $opts->{'checkversion'}) { }
|
|
390
|
0 |
0 |
if $imported == $will_import
|
|
392
|
0 |
0 |
if $imported > $will_import
|
|
413
|
0 |
0 |
unless $ua->mirror($release->{'download_url'}, $tarball)
|
|
421
|
0 |
0 |
unless my $dist_dir = $archive->extract_path
|
|
453
|
0 |
0 |
unless ($ENV{'GIT_AUTHOR_DATE'})
|
|
458
|
0 |
0 |
if $@
|
|
462
|
0 |
0 |
if $mtime =~ /\A (\d\d\d\d) - (\d\d?) - (\d\d?) \z/x
|
|
465
|
0 |
0 |
if ($mtime) { }
|
|
470
|
0 |
0 |
if ($opts->{'backpan'})
|
|
478
|
0 |
0 |
if (my $bp_dist = $dists{$dist}) { }
|
|
482
|
0 |
0 |
if ($author_obj->isa('CPANPLUS::Module::Author::Fake'))
|
|
488
|
0 |
0 |
if ($author_obj->isa('CPANPLUS::Module::Author::Fake'))
|
|
496
|
0 |
0 |
unless $ENV{'GIT_AUTHOR_NAME'}
|
|
497
|
0 |
0 |
unless $ENV{'GIT_AUTHOR_EMAIL'}
|
|
499
|
0 |
0 |
unless $opts->{'parent'}
|
|
501
|
0 |
0 |
$last_version ? :
|