| line |
true |
false |
branch |
|
18
|
0 |
0 |
unless $Module::Install::AUTHOR |
|
21
|
0 |
0 |
if ($repo) { } |
|
31
|
1 |
1 |
if (-e '.git') { } |
|
|
0 |
1 |
elsif (-e '.svn') { } |
|
|
0 |
1 |
elsif (-e '_darcs') { } |
|
|
1 |
0 |
elsif (-e '.hg') { } |
|
|
0 |
0 |
elsif (-e "$ENV{'HOME'}/.svk") { } |
|
33
|
1 |
0 |
if (&$execute('git remote show -n origin') =~ /URL: (.*)$/m) { } |
|
|
0 |
0 |
elsif (&$execute('git svn info') =~ /URL: (.*)$/m) { } |
|
42
|
0 |
0 |
if (`svn info` =~ /URL: (.*)$/m) |
|
47
|
0 |
0 |
if (my $query_repo = `darcs query repo`) |
|
48
|
0 |
0 |
if ($query_repo =~ m[Default Remote: (http://.+)]) |
|
53
|
0 |
0 |
unless open my $handle, '<', '_darcs/prefs/repos' |
|
56
|
0 |
0 |
if m[^http://] |
|
59
|
1 |
0 |
if (&$execute('hg paths') =~ /default = (.*)$/m) |
|
66
|
0 |
0 |
unless my $svk_info = `svk info` |
|
68
|
0 |
0 |
if ($svk_info =~ /Mirrored From: (.*), Rev\./) |
|
72
|
0 |
0 |
if ($svk_info =~ m[Merged From: (/mirror/.*), Rev\.]) |
|
73
|
0 |
0 |
unless $svk_info = `svk info /$1` |