Branch Coverage

blib/lib/App/sourcepan.pm
Criterion Covered Total %
branch 0 64 0.0


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