| line |
true |
false |
branch |
|
32
|
5 |
24 |
if (ref $class) |
|
33
|
2 |
3 |
unless &blessed($class) and $class->isa('Digest::SRI') |
|
38
|
19 |
5 |
@_ ? : |
|
40
|
10 |
14 |
if ($param =~ m[\A($KNOWN_ALGO_RE)-([A-Za-z0-9+/=]+)\z]) { } |
|
45
|
1 |
13 |
unless exists $KNOWN_ALGOS{$algo} |
|
51
|
10 |
13 |
if defined $expected |
|
62
|
1 |
3 |
if defined $self->{'exp'} |
|
68
|
5 |
3 |
if (my $r = ref $what) { } |
|
69
|
1 |
4 |
if ($r eq 'GLOB') { } |
|
|
2 |
2 |
elsif ($r eq 'SCALAR') { } |
|
80
|
20 |
8 |
if (&blessed($_[0]) and $_[0]->isa('Digest::SRI')) |
|
85
|
1 |
7 |
unless @_ |
|
86
|
1 |
6 |
if @_ > 2 |
|
92
|
1 |
2 |
unless @_ == 2 |
|
107
|
1 |
4 |
unless open my $fh, '<', $fn |