| line |
true |
false |
branch |
|
33
|
1 |
2 |
unless ($@) |
|
35
|
1 |
0 |
if (@{"Digest::${digest}::ISA";}) |
|
49
|
273 |
3 |
if (not $@) { } |
|
54
|
1 |
2 |
if ($self->_make_digest_signature($method)) { } |
|
69
|
9 |
18 |
if (defined wantarray) { } |
|
135
|
0 |
3 |
unless $scalar =~ /^([^|]+)\|([^|]+)\|(.+)$/ |
|
151
|
0 |
250 |
if (ref $currsig or ref $$self{'Signature'}) { } |
|
167
|
0 |
174 |
unless my(@stat) = stat $$self{'Filename'} |
|
180
|
174 |
0 |
if (-e $$self{'Filename'} and -r $$self{'Filename'}) |
|
182
|
0 |
174 |
unless open F, $$self{'Filename'} |
|
204
|
92 |
0 |
if $class =~ /^File::Modified::Signature::([^:]+)$/ |
|
209
|
92 |
84 |
unless (exists $$self{'Digest'}) |
|
220
|
176 |
0 |
if (-e $$self{'Filename'} and -r $$self{'Filename'}) |
|
222
|
0 |
176 |
unless open F, $$self{'Filename'} |