| 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 ? : |