| line |
true |
false |
branch |
|
21
|
0 |
14 |
if ($] < "5.006" and not defined &warnings::import) |
|
23
|
0 |
14 |
if $INC[-1] eq "." |
|
50
|
10 |
17 |
$mode eq '>' ? : |
|
51
|
0 |
27 |
unless open $fhn, $arg |
|
52
|
27 |
0 |
if ($raw) |
|
69
|
147 |
504 |
if (exists $self->{'_factory'}) |
|
83
|
320 |
0 |
if (ref $source eq "ARRAY") |
|
86
|
292 |
908 |
if $i >= scalar @$source |
|
104
|
17 |
43 |
unless (defined $line) |
|
110
|
1 |
42 |
unless length $line |
|
113
|
107 |
0 |
/\A(.+?):(.*)\z/ ? : |
|
116
|
42 |
0 |
if %record |
|
129
|
4 |
33 |
if $remaining <= 0 |
|
151
|
4 |
18 |
if $remaining <= 0 |
|
169
|
17 |
10 |
if (@args == 1 and ref $args[0] eq 'CODE') { } |
|
178
|
0 |
39 |
unless defined $row->{$k} |
|
179
|
19 |
20 |
unless $row->{$k} eq $match{$k} |
|
188
|
26 |
119 |
unless defined $item |
|
189
|
65 |
54 |
if &$cond($item) |
|
206
|
28 |
123 |
unless defined $item |
|
221
|
7 |
14 |
if (@buffer) |
|
226
|
3 |
11 |
unless defined $item |
|
229
|
2 |
9 |
unless (ref $result eq "ARRAY") |
|
247
|
31 |
18 |
unless ($first_done) |
|
249
|
20 |
11 |
if (defined $item) |
|
256
|
29 |
0 |
$second_iter ? : |
|
273
|
5 |
12 |
unless defined $item1 and defined $item2 |
|
291
|
7 |
19 |
if $taken >= $count |
|
293
|
0 |
19 |
unless defined $item |
|
309
|
0 |
6 |
unless defined $item |
|
324
|
0 |
7 |
if $done |
|
326
|
0 |
7 |
unless defined $item |
|
328
|
5 |
2 |
if (&$predicate($item)) { } |
|
348
|
3 |
16 |
unless defined $item |
|
350
|
10 |
6 |
if ($skipping) { } |
|
351
|
3 |
7 |
unless (&$predicate($item)) |
|
450
|
0 |
21 |
unless defined $key |
|
451
|
13 |
8 |
unless (exists $groups{$key}) |
|
483
|
12 |
50 |
unless defined $item |
|
485
|
6 |
44 |
$key_selector ? : |
|
486
|
0 |
50 |
unless defined $key |
|
488
|
35 |
15 |
unless ($seen{$key}++) |
|
499
|
0 |
99 |
unless defined $item |
|
501
|
9 |
90 |
if (ref $item eq 'HASH') { } |
|
|
3 |
87 |
elsif (ref $item eq 'ARRAY') { } |
|
505
|
14 |
0 |
defined $item->{$k} ? : |
|
512
|
6 |
0 |
defined $_ ? : |
|
536
|
65 |
74 |
if $i >= scalar @$aref |
|
567
|
0 |
13 |
$key_selector ? : |
|
577
|
0 |
14 |
$key_selector ? : |
|
579
|
2 |
12 |
if $seen{$key}++ |
|
580
|
6 |
6 |
if exists $second_set{$key} |
|
594
|
0 |
11 |
$key_selector ? : |
|
604
|
0 |
17 |
$key_selector ? : |
|
606
|
2 |
15 |
if $seen{$key}++ |
|
607
|
8 |
7 |
unless exists $second_set{$key} |
|
622
|
0 |
16 |
if ref $key |
|
634
|
14 |
24 |
if @buffer |
|
638
|
8 |
16 |
unless defined $outer_item |
|
642
|
0 |
16 |
if ref $key |
|
644
|
12 |
4 |
if (exists $inner_hash{$key}) |
|
667
|
0 |
81 |
if ref $key |
|
668
|
1 |
80 |
unless defined $key |
|
675
|
29 |
71 |
unless defined $outer_item |
|
679
|
0 |
71 |
if ref $key |
|
680
|
1 |
70 |
unless defined $key |
|
683
|
48 |
23 |
exists $inner_lookup{$key} ? : |
|
706
|
1 |
7 |
unless &$predicate($item) |
|
716
|
6 |
13 |
if ($predicate) { } |
|
718
|
4 |
5 |
if &$predicate($item) |
|
724
|
9 |
4 |
defined $item ? : |
|
732
|
1 |
4 |
if ($comparer) { } |
|
761
|
3 |
1 |
unless defined $item1 or defined $item2 |
|
764
|
1 |
10 |
unless defined $item1 and defined $item2 |
|
767
|
1 |
9 |
unless &$comparer($item1, $item2) |
|
780
|
3 |
5 |
if ($predicate) { } |
|
782
|
2 |
7 |
if &$predicate($item) |
|
788
|
4 |
1 |
if defined $item |
|
798
|
2 |
2 |
if (@_ >= 2) { } |
|
|
2 |
0 |
elsif (@_ == 1) { } |
|
804
|
0 |
2 |
if (ref $_[0] eq 'CODE') { } |
|
813
|
2 |
2 |
$@ ? : |
|
821
|
0 |
3 |
if ($predicate) { } |
|
823
|
0 |
0 |
if &$predicate($items[$i]) |
|
828
|
0 |
3 |
unless @items |
|
838
|
2 |
7 |
if (@_ >= 2) { } |
|
|
3 |
4 |
elsif (@_ == 1) { } |
|
844
|
2 |
1 |
if (ref $_[0] eq 'CODE') { } |
|
854
|
3 |
6 |
if ($predicate) { } |
|
856
|
1 |
6 |
if &$predicate($items[$i]) |
|
861
|
2 |
4 |
@items ? : |
|
873
|
2 |
6 |
if $predicate and not &$predicate($item) |
|
876
|
2 |
4 |
if ($count > 1) |
|
882
|
1 |
2 |
if $count == 0 |
|
894
|
2 |
4 |
if $predicate and not &$predicate($item) |
|
897
|
1 |
3 |
if ($count > 1) |
|
903
|
2 |
1 |
$count == 1 ? : |
|
909
|
1 |
3 |
if $index < 0 |
|
915
|
2 |
3 |
if $current == $index |
|
925
|
1 |
2 |
if $index < 0 |
|
931
|
1 |
3 |
if $current == $index |
|
946
|
0 |
48 |
if ($predicate) |
|
976
|
2 |
3 |
if not defined $min or $val < $min |
|
989
|
3 |
2 |
if not defined $max or $val > $max |
|
1006
|
0 |
1 |
if $count == 0 |
|
1022
|
1 |
1 |
if $count == 0 |
|
1032
|
2 |
5 |
if (@args == 1) { } |
|
|
4 |
1 |
elsif (@args == 2) { } |
|
|
1 |
0 |
elsif (@args == 3) { } |
|
1037
|
1 |
1 |
unless defined $seed |
|
1062
|
1 |
5 |
$result_selector ? : |
|
1102
|
0 |
11 |
unless defined $key |
|
1126
|
0 |
9 |
unless defined $key |
|
1139
|
1 |
5 |
unless ($has_default_arg) |
|
1150
|
2 |
9 |
if (defined $item) |
|
1156
|
5 |
3 |
unless ($has_elements or $returned_default) |
|
1173
|
2 |
7 |
defined $opts{'headers'} ? : |
|
|
1 |
9 |
defined $opts{'label_order'} ? : |
|
1182
|
3 |
9 |
if (defined $label_order) { } |
|
1193
|
24 |
1 |
defined $record->{$_} ? : |
|
1262
|
295 |
66 |
$i < scalar @sorted ? : |
|
1291
|
88 |
482 |
if ($specs->[$i]{'dir'} < 0) |
|
1292
|
445 |
125 |
if ($cmp != 0) |
|
1294
|
445 |
19 |
$r != 0 ? : |
|
1309
|
2 |
470 |
unless defined $val |
|
1310
|
116 |
356 |
if ($type eq 'num') { } |
|
|
160 |
196 |
elsif ($type eq 'str') { } |
|
1312
|
114 |
2 |
defined $val && length $val ? : |
|
1321
|
45 |
151 |
if ($t =~ /^[+-]?(?:\d+\.?\d*|\d*\.\d+)(?:[eE][+-]?\d+)?$/) { } |
|
1333
|
127 |
443 |
if ($type eq 'num') { } |
|
|
182 |
261 |
elsif ($type eq 'str') { } |
|
1343
|
60 |
201 |
if ($fa == 0 and $fb == 0) { } |
|
|
201 |
0 |
elsif ($fa == 1 and $fb == 1) { } |