| line |
true |
false |
branch |
|
34
|
18 |
65 |
if ($file->is_dir and not -l $file) |
|
39
|
0 |
83 |
unless $file->remove |
|
52
|
7 |
51 |
if (ref $arg eq 'HASH') { } |
|
57
|
21 |
0 |
$v =~ /\s/ ? : |
|
|
21 |
7 |
if $v ne '1' |
|
67
|
0 |
30 |
if $trace |
|
100
|
0 |
2 |
unless &GetOptions('backpan_index_url=s', \$opt_backpan_index_url, 'backpan_url=s', \$opt_backpan_url, 'metacpan_url=s', \$opt_metacpan_url, 'trace', \$opt_trace, 'skip=s', sub {
$skip{$_} = 1 foreach (split(/,/, $_[1], 0));
}
, 'resume', \$opt_resume, 'output|o=s', \$opt_output, 'help|h', sub {
pod2usage({'-verbose', 2});
}
, 'version', sub {
say 'cpangitify version ', $VERSION // 'dev';
exit 1;
}
) |
|
108
|
0 |
2 |
unless $name |
|
110
|
0 |
2 |
$opt_output ? : |
|
112
|
0 |
2 |
if (-e $dest and not $opt_resume) |
|
129
|
14 |
8 |
unless defined $release->distinfo->dist |
|
130
|
1 |
7 |
unless $names{$release->distinfo->dist} |
|
134
|
0 |
2 |
if ($@ or @rel == 0) |
|
145
|
0 |
2 |
if ($opt_resume) { } |
|
147
|
0 |
0 |
if ($git->status->is_dirty) |
|
164
|
3 |
4 |
unless (defined $cache->{$cpanid}) |
|
168
|
0 |
3 |
unless ($res->{'success'}) |
|
178
|
1 |
6 |
if ref $email eq 'ARRAY' |
|
191
|
0 |
7 |
if ($skip{$version}) |
|
204
|
0 |
7 |
unless ($res->{'success'}) |
|
221
|
0 |
7 |
unless $archive->extract('to', 'File::Spec'->curdir) |
|
223
|
0 |
7 |
if ($trace) |
|
231
|
0 |
7 |
if (@children != 1) |
|
244
|
7 |
60 |
if $child->basename eq '.git' |
|
250
|
0 |
84 |
if $child->basename eq '.git' |
|
251
|
14 |
70 |
if (-d $child) { } |
|
253
|
0 |
14 |
unless rcopy($child, $dest->subdir($child->basename)) |
|
257
|
0 |
70 |
unless rcopy($child, $dest->file($child->basename)) |
|
271
|
0 |
7 |
if $@ |