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 |