| line |
true |
false |
branch |
|
44
|
0 |
0 |
if ($type eq 'module') { } |
|
56
|
0 |
0 |
defined $ver ? : |
|
63
|
0 |
0 |
if (not defined $latestver or $latestver < $thisver) |
|
68
|
0 |
0 |
unless (defined $ver) |
|
71
|
0 |
0 |
if $thisname ne $basename |
|
72
|
0 |
0 |
if $thisver == $latestver |
|
86
|
0 |
0 |
unless copy($dist->{'localfile'}, $basename) |
|
90
|
0 |
0 |
unless $opts->{'extract'} |
|
95
|
0 |
0 |
if ($id =~ /\.tar\.(?:gz|bz2)$/) { } |
|
|
0 |
0 |
elsif ($id =~ /\.zip$/) { } |
|
96
|
0 |
0 |
$id =~ /bz2$/ ? : |
|
108
|
0 |
0 |
if not $opts->{'overwrite'} and -d $dirname |
|
111
|
0 |
0 |
unless IPC::Run::run([@unpack_cmd], ">/dev/null") |
|
114
|
0 |
0 |
unless -d $dirname |
|
117
|
0 |
0 |
if ($opts->{'unversioned'}) |
|
118
|
0 |
0 |
unless (my $newname = $dirname) =~ s/-[0-9._]+$// |
|
121
|
0 |
0 |
unless rename $dirname, $newname |
|
129
|
0 |
0 |
if (my $vc = $opts->{'vc_init'}) |
|
130
|
0 |
0 |
unless my $code = "App::sourcepan"->can("vc_init_$vc") |
|
133
|
0 |
0 |
unless &$code($dirname, "id", $id) |
|
144
|
0 |
0 |
unless defined(my $kid = fork) |
|
145
|
0 |
0 |
if $kid |
|
148
|
0 |
0 |
unless chdir $dirname |
|
150
|
0 |
0 |
unless system("bzr", "init") == 0 |
|
152
|
0 |
0 |
unless system("bzr", "add", ".") == 0 |
|
154
|
0 |
0 |
unless system("bzr", "commit", "-m", "Imported $opts{'id'}") == 0 |
|
162
|
0 |
0 |
unless defined(my $kid = fork) |
|
163
|
0 |
0 |
if $kid |
|
166
|
0 |
0 |
unless chdir $dirname |
|
168
|
0 |
0 |
unless system("git", "init") == 0 |
|
170
|
0 |
0 |
unless system("git", "add", ".") == 0 |
|
172
|
0 |
0 |
unless system("git", "commit", "-m", "Imported $opts{'id'}") == 0 |