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 |