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 |