| blib/lib/VCS/SCCS.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 17 | 58.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 333 | 0 | 0 | 16 | $self->{'body'} and $self->{'current'} |
| 421 | 15 | 0 | 1 | $self->{'flags'}{'e'} and @body |
| 15 | 0 | 1 | $self->{'flags'}{'e'} and @body and $body[0] =~ /^[\x20-\x60]{1,61}$/ |
| line | l | !l | condition |
|---|---|---|---|
| 97 | 70 | 3 | $sccs{'current'} ||= [$rev, $vsn, $v_r, $v_l, $v_b, $v_s] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 22 | 0 | 12 | 0 | ref $proto || $proto |
| 334 | 7 | 9 | 0 | shift() || $self->{'current'}[0] |