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] |