Branch Coverage

blib/lib/String/Lookup/PurePerl.pm
Criterion Covered Total %
branch 41 58 70.6


line true false branch
61 0 24 if $$self[0] < 0
62 0 24 if $$self[1] < 0
65 5 19 if (my $init = delete $param{'init'}) { }
66 0 5 if $storage
70 4 1 reftype $init eq 'HASH' ? :
80 7 17 if (my $flush = delete $param{'flush'})
81 0 7 if $storage
87 8 16 if ($storage)
92 0 8 $storage =~ /::/u ? :
93 0 8 unless eval "use $storage_class; 1"
98 4 4 if exists $param{$name}
102 0 8 unless defined $tag and length $tag
108 0 8 if ($fork) { }
113 0 0 if $pid
114 0 0 unless defined $pid
130 6 18 if (my $autoflush = delete $param{'autoflush'})
133 0 6 if (not $$self[5]) { }
1 5 elsif ($autoflush =~ /^([0-9]+)s$/u) { }
5 0 elsif ($autoflush =~ /^[0-9]+$/u) { }
142 1 1 if time >= $epoch
149 7 3 if @{$_[0][6];} == $autoflush
160 0 24 if (my(@huh) = sort(keys %param))
165 0 24 if @errors
181 50 28 if (ref $_[0])
216 6 6 ref $_[1] ? :
284 9 24 unless my $flush = $$self[5]
285 10 14 unless my $todo = $$self[6]
288 14 0 if my $return = &$flush($$self[3], $todo)
312 8 5 if $#list > $$self[0]