| 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'} |
|
94
|
0 |
0 |
if ($id =~ /\.tar\.(?:gz|bz2)$/) { } |
|
|
0 |
0 |
elsif ($id =~ /\.zip$/) { } |
|
95
|
0 |
0 |
$id =~ /bz2$/ ? : |
|
96
|
0 |
0 |
unless system('tar', $tarflags, $basename) == 0 |
|
100
|
0 |
0 |
unless -d $dirname |
|
104
|
0 |
0 |
unless IPC::Run::run(['unzip', $basename], '>/dev/null') |
|
108
|
0 |
0 |
unless -d $dirname |
|
115
|
0 |
0 |
if ($opts->{'unversioned'}) |
|
116
|
0 |
0 |
unless (my $newname = $dirname) =~ s/-[0-9._]+$// |
|
119
|
0 |
0 |
unless rename $dirname, $newname |
|
127
|
0 |
0 |
if (my $vc = $opts->{'vc_init'}) |
|
128
|
0 |
0 |
unless my $code = 'App::sourcepan'->can("vc_init_$vc") |
|
131
|
0 |
0 |
unless &$code($dirname, 'id', $id) |
|
142
|
0 |
0 |
unless defined(my $kid = fork) |
|
143
|
0 |
0 |
if $kid |
|
146
|
0 |
0 |
unless chdir $dirname |
|
148
|
0 |
0 |
unless system('bzr', 'init') == 0 |
|
150
|
0 |
0 |
unless system('bzr', 'add', '.') == 0 |
|
152
|
0 |
0 |
unless system('bzr', 'commit', '-m', "Imported $opts{'id'}") == 0 |
|
160
|
0 |
0 |
unless defined(my $kid = fork) |
|
161
|
0 |
0 |
if $kid |
|
164
|
0 |
0 |
unless chdir $dirname |
|
166
|
0 |
0 |
unless system('git', 'init') == 0 |
|
168
|
0 |
0 |
unless system('git', 'add', '.') == 0 |
|
170
|
0 |
0 |
unless system('git', 'commit', '-m', "Imported $opts{'id'}") == 0 |