| 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
|
15 |
7 |
unless $names{$release->distinfo->dist} |
|
133
|
0 |
2 |
if ($@ or @rel == 0) |
|
144
|
0 |
2 |
if ($opt_resume) { } |
|
146
|
0 |
0 |
if ($git->status->is_dirty) |
|
163
|
3 |
4 |
unless (defined $cache->{$cpanid}) |
|
167
|
0 |
3 |
unless ($res->{'success'}) |
|
188
|
0 |
7 |
if ($skip{$version}) |
|
201
|
0 |
7 |
unless ($res->{'success'}) |
|
218
|
0 |
7 |
unless $archive->extract('to', 'File::Spec'->curdir) |
|
220
|
0 |
7 |
if ($trace) |
|
228
|
0 |
7 |
if (@children != 1) |
|
241
|
7 |
60 |
if $child->basename eq '.git' |
|
247
|
0 |
84 |
if $child->basename eq '.git' |
|
248
|
14 |
70 |
if (-d $child) { } |
|
250
|
0 |
14 |
unless rcopy($child, $dest->subdir($child->basename)) |
|
254
|
0 |
70 |
unless rcopy($child, $dest->file($child->basename)) |
|
268
|
0 |
7 |
if $@ |