| line |
true |
false |
branch |
|
28
|
0 |
0 |
unless ($ok_to_compress) |
|
39
|
0 |
0 |
unless $cache->get($_[0]) or do {
my $ret;
$cache->set($_[0], $ret = ref $_[1] eq 'CODE' ? $_[1]->() : $_[1]);
$ret
} |
|
41
|
0 |
0 |
ref $_[1] eq 'CODE' ? : |
|
48
|
0 |
0 |
if $#_ == 0 and not ref $_[0] |
|
49
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
|
0 |
0 |
if ref $_ |
|
53
|
0 |
0 |
if $#_ == 0 and not ref $_[0] |
|
54
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
|
0 |
0 |
if ref $_ |
|
58
|
0 |
0 |
ref $_[1] eq 'CODE' ? : |
|
|
0 |
0 |
defined $_[2] ? : |
|
|
0 |
0 |
if ref $_[0] ne 'ARRAY' |
|
63
|
0 |
0 |
ref $$_[1] eq 'CODE' ? : |
|
|
0 |
0 |
defined $$_[2] ? : |
|
74
|
0 |
0 |
ref $_[1] eq 'CODE' ? : |
|
|
0 |
0 |
defined $_[2] ? : |
|
|
0 |
0 |
if ref $_[0] ne 'ARRAY' |
|
79
|
0 |
0 |
ref $$_[1] eq 'CODE' ? : |
|
|
0 |
0 |
defined $$_[2] ? : |
|
90
|
0 |
0 |
ref $_[1] eq 'CODE' ? : |
|
|
0 |
0 |
defined $_[2] ? : |
|
|
0 |
0 |
if ref $_[0] ne 'ARRAY' |
|
95
|
0 |
0 |
ref $$_[1] eq 'CODE' ? : |
|
|
0 |
0 |
defined $$_[2] ? : |
|
106
|
0 |
0 |
if $#_ == 0 and not ref $_[0] |
|
107
|
0 |
0 |
ref $_ && ref $_ eq 'ARRAY' ? : |
|
113
|
0 |
0 |
if $#_ == 1 and not ref $_[0] and not ref $_[1] |
|
120
|
0 |
0 |
if $#_ == 1 and not ref $_[0] and not ref $_[1] |
|
127
|
0 |
0 |
if $#_ <= 2 and scalar grep({not ref $_;} @_) |
|
134
|
0 |
0 |
if $#_ <= 2 and scalar grep({not ref $_;} @_) |