| line |
true |
false |
branch |
|
32
|
1 |
2 |
unless ($@) |
|
34
|
1 |
0 |
if (@{"Digest::${digest}::ISA";}) |
|
48
|
282 |
3 |
if (not $@) { } |
|
53
|
1 |
2 |
if ($self->_make_digest_signature($method)) { } |
|
68
|
9 |
18 |
if (defined wantarray) { } |
|
134
|
0 |
3 |
unless $scalar =~ /^([^|]+)\|([^|]+)\|(.+)$/ |
|
150
|
0 |
259 |
if (ref $currsig or ref $self->{'Signature'}) { } |
|
167
|
0 |
180 |
unless my(@stat) = stat $self->{'Filename'} |
|
181
|
180 |
0 |
if (-e $self->{'Filename'} and -r $self->{'Filename'}) |
|
183
|
0 |
180 |
unless open F, $self->{'Filename'} |
|
206
|
95 |
0 |
if $class =~ /^File::Modified::Signature::([^:]+)$/ |
|
211
|
95 |
87 |
unless (exists $self->{'Digest'}) |
|
222
|
182 |
0 |
if (-e $self->{'Filename'} and -r $self->{'Filename'}) |
|
224
|
0 |
182 |
unless open F, $self->{'Filename'} |