Branch Coverage

blib/lib/App/EUMM/Upgrade.pm
Criterion Covered Total %
branch 28 84 33.3


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]