| line |
true |
false |
branch |
|
34
|
18 |
65 |
if ($file->is_dir and not -l $file) |
|
39
|
0 |
83 |
unless $file->remove |
|
53
|
7 |
57 |
if (ref $arg eq 'HASH') { } |
|
59
|
21 |
0 |
$v =~ /\s/ ? : |
|
|
21 |
7 |
if $v ne '1' |
|
69
|
0 |
32 |
if $trace |
|
79
|
3 |
4 |
unless (defined $cache->{$cpanid}) |
|
83
|
0 |
3 |
unless ($res->{'success'}) |
|
93
|
1 |
6 |
if ref $email eq 'ARRAY' |
|
128
|
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});
}
, 'branch|b=s', \$opt_branch, 'version', sub {
say 'cpangitify version ', $VERSION // 'dev';
exit 1;
}
) |
|
137
|
0 |
2 |
unless $name |
|
139
|
0 |
2 |
$opt_output ? : |
|
141
|
0 |
2 |
if (-e $dest and not $opt_resume) |
|
158
|
14 |
8 |
unless defined $release->distinfo->dist |
|
159
|
1 |
7 |
unless $names{$release->distinfo->dist} |
|
163
|
0 |
2 |
if ($@ or @rel == 0) |
|
174
|
0 |
2 |
if ($opt_resume) { } |
|
176
|
0 |
0 |
if ($git->status->is_dirty) |
|
197
|
0 |
7 |
if ($skip{$version}) |
|
210
|
0 |
7 |
unless ($res->{'success'}) |
|
227
|
0 |
7 |
unless $archive->extract('to', 'File::Spec'->curdir) |
|
229
|
0 |
7 |
if ($trace) |
|
237
|
0 |
7 |
if (@children != 1) |
|
250
|
7 |
60 |
if $child->basename eq '.git' |
|
256
|
0 |
84 |
if $child->basename eq '.git' |
|
257
|
14 |
70 |
if (-d $child) { } |
|
259
|
0 |
14 |
unless rcopy($child, $dest->subdir($child->basename)) |
|
263
|
0 |
70 |
unless rcopy($child, $dest->file($child->basename)) |
|
277
|
0 |
7 |
if $@ |