Branch Coverage

blib/lib/Heap/Simple/Perl.pm
Criterion Covered Total %
branch 74 86 86.0


line true false branch
29 120 2267 unless defined $order and $order ne ''
31 977 1410 if (ref $order eq 'CODE') { }
43 106 2279 unless defined $elements
44 833 1552 if ref $elements eq ''
45 0 2385 unless ref $elements eq 'ARRAY'
47 0 2385 unless defined $$elements[0]
50 1 2384 if $name eq 'Key'
58 1388 1001 unless defined $max_count
59 1 1000 unless $max_count == int $max_count
61 1 999 if $max_count < 0
62 0 999 if $max_count == 0
63 1 998 $max_count == 9**9**9 ? :
70 1 2389 if @_ % 2 == 0
78 1349 1038 delete $options{'can_die'} ? :
79 1349 1038 if @die
84 1095 1286 if delete $options{'dirty'}
88 361 2020 unless @{"${gclass}::ISA";}
92 311 2070 exists $options{'infinity'} ? :
94 331 2050 if exists $options{'user_data'}
96 1 2380 if %options
127 1676 0 @_ > 1 ? :
542 1676 (shift())->[0]{'can_die'} ? :
131 94 241 (shift())->[0]{'can_die'} ? :
135 703 0 @_ > 1 ? :
1325 703 (shift())->[0]{'max_count'} ? :
175 0 676 unless defined(my $str = shift())
188 0 1955 unless ref $_self
190 0 1955 unless $subroutine =~ s/.*:://s
200 1586 369 if ($string =~ /\bmy\s+\$(\w+)\s*=\s*shift;/g)
202 0 1586 unless $string =~ /\$$var\b/g
203 165 1421 unless ($string =~ /\$$var\b/g)
205 0 165 if $string =~ /(\$_\[[^\]]\])/
215 750 0 defined $$_self[0]{'index'} ? :
750 676 $1 eq 'LITERAL' ? :
223 0 1955 if $@
300 38 182 if ($heap->_KEY('') eq '') { }
455 71 35 if ($heap->_VALUE('') eq '') { }
470 36 65 if ($heap->_KEY('') eq '') { }
680 93 132 if ($heap->_KEY('') eq '') { }
695 167 104 if ($heap->_VALUE('') eq '') { }
709 66 70 if ($heap->_VALUE('') eq '') { }
761 980 368 if @_ <= 1
769 1880 379 if @_ <= 1