| line |
true |
false |
branch |
|
112
|
5 |
17 |
unless $str =~ /^(\s+)/ |
|
131
|
0 |
6 |
if $s1 == $minspace |
|
139
|
0 |
16 |
unless $l |
|
140
|
6 |
10 |
if ($i == 0) |
|
145
|
0 |
10 |
unless ($l =~ s/^$space_string_to_set//) |
|
148
|
0 |
10 |
unless $l |
|
149
|
10 |
0 |
if ($l =~ /^(\s+)/) { } |
|
151
|
2 |
8 |
if (not defined $line) { } |
|
155
|
8 |
0 |
if ($space =~ /^$line/) { } |
|
|
0 |
0 |
elsif ($line =~ /^$space/) { } |
|
159
|
0 |
0 |
if ($line eq '') |
|
170
|
0 |
6 |
if (not $line and $i > 1) |
|
175
|
0 |
16 |
unless $l |
|
176
|
6 |
10 |
if ($i == 0) |
|
181
|
0 |
10 |
unless ($l =~ s/^$line//) |
|
234
|
0 |
2 |
if ($i_to == 0) { } |
|
253
|
1 |
1 |
if ($content =~ /WriteMakefile\(\s*(\%\w+)\s*\);/) { } |
|
256
|
0 |
1 |
unless $content =~ s/($text2replace)/$1$new_fields/ |
|
283
|
0 |
0 |
if (-e '.git') { } |
|
|
0 |
0 |
elsif (-e '.svn') { } |
|
|
0 |
0 |
elsif (-e '_darcs') { } |
|
|
0 |
0 |
elsif (-e '.hg') { } |
|
|
0 |
0 |
elsif ($ENV{'HOME'} and -e "$ENV{'HOME'}/.svk") { } |
|
286
|
0 |
0 |
if (&$execute('git remote show -n origin') =~ /URL: (.*)$/m) { } |
|
|
0 |
0 |
elsif (&$execute('git svn info') =~ /URL: (.*)$/m) { } |
|
294
|
0 |
0 |
if $git_url =~ /\A\w+\z/ |
|
297
|
0 |
0 |
if (&$execute('svn info') =~ /URL: (.*)$/m) |
|
302
|
0 |
0 |
if (my $query_repo = `darcs query repo`) |
|
303
|
0 |
0 |
if ($query_repo =~ m[Default Remote: (http://.+)]) |
|
308
|
0 |
0 |
unless open my $handle, '<', '_darcs/prefs/repos' |
|
311
|
0 |
0 |
if m[^http://] |
|
314
|
0 |
0 |
if (&$execute('hg paths') =~ /default = (.*)$/m) |
|
321
|
0 |
0 |
unless my $svk_info = `svk info` |
|
323
|
0 |
0 |
if ($svk_info =~ /Mirrored From: (.*), Rev\./) |
|
327
|
0 |
0 |
if ($svk_info =~ m[Merged From: (/mirror/.*), Rev\.]) |
|
328
|
0 |
0 |
unless $svk_info = `svk info /$1` |
|
339
|
0 |
1 |
if $url =~ s[^(?:ssh://|git://)?git\@(github\.com|bitbucket\.org)[:/]][https://$1/] |
|
342
|
0 |
1 |
if $url =~ s[^(?:ssh://)hg\@(bitbucket\.org)/][https://$1/] |
|
345
|
1 |
0 |
if $url =~ s[^https://(\w+)\@(bitbucket\.org)/][https://$2/] |
|
353
|
0 |
5 |
unless $url |
|
354
|
3 |
2 |
if $url =~ s[^(?:https?|git)://(github\.com|bitbucket\.org)/(.*)\.git][https://$1/$2] |
|
355
|
2 |
0 |
if $url =~ s[^https?://(bitbucket\.org)/(.*)][https://$1/$2] |