Branch Coverage

blib/lib/VCS/SCCS.pm
Criterion Covered Total %
branch 86 104 82.6


line true false branch
22 0 12 unless my $class = ref $proto || $proto
26 3 9 unless my $fn = shift()
27 1 8 unless -e $fn
28 2 6 unless -f $fn
29 1 5 unless -s $fn
32 0 5 unless open my $fh, "<", $fn
36 2 3 unless readline($fh) =~ /^\cAh(\d+)$/
86 54 19 $y < 70 ? :
122 73 0 unless exists $sccs{'vsn'}{$vsn}
132 2 1 if (/^\cAu/)
151 2 4 if /\S/
190 0 2 unless $self->{'current'}
191 1 1 wantarray ? :
196 0 13 unless $self->{'current'}
197 1 12 if (not defined $rev) { }
10 2 elsif (exists $self->{'delta'}{$rev}) { }
1 1 elsif (exists $self->{'vsn'}{$rev}) { }
214 3 6 unless ref $self eq "VCS::SCCS"
215 0 6 unless $self->{'current'}
218 4 2 unless $rev
222 1 1 if exists $self->{'delta'}{$rev}
229 0 6 unless $self->{'current'}
232 4 2 unless $vsn
236 1 1 if exists $self->{'vsn'}{$vsn}
243 0 1 unless $self->{'current'}
272 1 3 if (ref $type eq 'HASH') { }
2 1 elsif (exists $tran{uc $type}) { }
286 38674 11 unless my $tt = $self->{'tran'}
287 0 11 unless my $tr = $tran{$tt}
296 23 9 unless my $type = $self->{'tran'}
297 0 9 unless exists $self->{'delta'}{$rev}
305 0 9 exists $self->{'flags'}{'m'} ? :
306 9 0 exists $self->{'flags'}{'q'} ? :
307 0 9 exists $self->{'flags'}{'t'} ? :
322 2 7 unless (exists $tran{$type}{'re'})
324 2 0 $kw ? :
333 0 16 unless $self->{'body'} and $self->{'current'}
336 4 12 if exists $self->{'vsn'}{$r}
356 22970 87275 if (/^\cAE\s+(\d+)$/)
396 399 22970 unless $lvl[$x][2] == $e
400 4609 18361 grep({$_->[0] == 0;} @lvl) ? :
403 12442 74833 if (/^\cAI\s+(\d+)$/)
404 7127 5315 $rseq{$1} ? :
405 5651 6791 grep({$_->[0] == 0;} @lvl) ? :
408 10528 64305 if (/^\cAD\s+(\d+)$/)
409 6025 4503 $rseq{$1} ? :
410 7948 2580 grep({$_->[0] == 0;} @lvl) ? :
413 0 64305 if (/^\cA(.*)/)
417 38676 25629 if $want
421 1 0 if ($self->{'flags'}{'e'} and @body and $body[0] =~ /^[\x20-\x60]{1,61}$/)
423 1 0 if $body
426 4 12 wantarray ? :