Branch Coverage

blib/lib/ClearCase/Wrapper.pm
Criterion Covered Total %
branch 15 66 22.7


line true false branch
24 0 1 $^O =~ /MSWin|Windows_NT/i ? :
41 0 1 if (defined $ENV{'CLEARCASE_PROFILE'}) { }
0 1 elsif ($ENV{'_CLEARCASE_WRAPPER_PROFILE'}) { }
1 0 elsif (not -f "$ENV{'HOME'}/.clearcase_profile") { }
47 1 0 if -r $rc
57 0 0 /^--$/ ? :
59 0 0 /^=--=$/ ? :
98 0 1 if $@
100 0 1 if $@
102 1 0 if (-e "$dir/$ix")
104 0 1 if $@
116 3 29 if /^(?:_?[A-Z]|__|[ab]$)/
119 0 29 unless ref $coderef
121 0 29 unless $cv->isa('B::CV')
122 0 29 if $cv->GV->isa('B::SPECIAL')
124 0 29 unless $p eq $pkg
171 0 0 if $flag eq $_[$i]
298 0 0 unless ref $coderef
310 0 0 if $op =~ /^lsp(riv)?/
311 0 0 unless ($op)
314 0 0 unless (keys %native)
317 0 0 if (/^Usage:\s*(\w+)\s*(\|\s*(\w+))?/)
318 0 0 if $1
319 0 0 if $3
323 0 0 if (exists $native{$op}) { }
0 0 elsif ($op =~ /^(?:des|lsh)/) { }
340 0 0 unless $page
341 0 0 if Native($page)
342 0 0 if (exists $ClearCase::Wrapper::{$page}) { }
0 0 elsif ($page ne $main::prog) { }
348 0 0 if $pager =~ /more|less/
352 0 0 if (not Native($page)) { }
355 0 0 $? ? :