| line |
true |
false |
branch |
|
20
|
12 |
0 |
if $INC[-1] eq "." |
|
22
|
0 |
12 |
if ($] < "5.006") |
|
38
|
141 |
484 |
if (exists $self->{'_factory'}) |
|
52
|
316 |
0 |
if (ref $source eq "ARRAY") |
|
55
|
288 |
903 |
if $i >= scalar @$source |
|
68
|
6 |
0 |
if ($] >= 5.006) { } |
|
70
|
0 |
6 |
unless eval " open(\$fh, '<', \$file) " |
|
74
|
0 |
0 |
unless open $fh, "< $file" |
|
83
|
1 |
14 |
unless length $line |
|
86
|
48 |
0 |
/\A(.+?):(.*)\z/ ? : |
|
89
|
14 |
0 |
if %record |
|
104
|
4 |
33 |
if $remaining <= 0 |
|
126
|
4 |
18 |
if $remaining <= 0 |
|
144
|
17 |
9 |
if (@args == 1 and ref $args[0] eq 'CODE') { } |
|
153
|
0 |
36 |
unless defined $row->{$k} |
|
154
|
18 |
18 |
unless $row->{$k} eq $match{$k} |
|
163
|
25 |
116 |
unless defined $item |
|
164
|
63 |
53 |
if &$cond($item) |
|
181
|
28 |
123 |
unless defined $item |
|
196
|
7 |
14 |
if (@buffer) |
|
201
|
3 |
11 |
unless defined $item |
|
204
|
2 |
9 |
unless (ref $result eq "ARRAY") |
|
222
|
28 |
16 |
unless ($first_done) |
|
224
|
18 |
10 |
if (defined $item) |
|
231
|
26 |
0 |
$second_iter ? : |
|
248
|
5 |
12 |
unless defined $item1 and defined $item2 |
|
266
|
7 |
19 |
if $taken >= $count |
|
268
|
0 |
19 |
unless defined $item |
|
284
|
0 |
6 |
unless defined $item |
|
299
|
0 |
7 |
if $done |
|
301
|
0 |
7 |
unless defined $item |
|
303
|
5 |
2 |
if (&$predicate($item)) { } |
|
323
|
3 |
16 |
unless defined $item |
|
325
|
10 |
6 |
if ($skipping) { } |
|
326
|
3 |
7 |
unless (&$predicate($item)) |
|
425
|
0 |
21 |
unless defined $key |
|
426
|
13 |
8 |
unless (exists $groups{$key}) |
|
458
|
12 |
50 |
unless defined $item |
|
460
|
6 |
44 |
$key_selector ? : |
|
461
|
0 |
50 |
unless defined $key |
|
463
|
35 |
15 |
unless ($seen{$key}++) |
|
474
|
0 |
99 |
unless defined $item |
|
476
|
9 |
90 |
if (ref $item eq 'HASH') { } |
|
|
3 |
87 |
elsif (ref $item eq 'ARRAY') { } |
|
480
|
14 |
0 |
defined $item->{$k} ? : |
|
487
|
6 |
0 |
defined $_ ? : |
|
511
|
62 |
71 |
if $i >= scalar @$aref |
|
542
|
0 |
13 |
$key_selector ? : |
|
552
|
0 |
14 |
$key_selector ? : |
|
554
|
2 |
12 |
if $seen{$key}++ |
|
555
|
6 |
6 |
if exists $second_set{$key} |
|
569
|
0 |
11 |
$key_selector ? : |
|
579
|
0 |
17 |
$key_selector ? : |
|
581
|
2 |
15 |
if $seen{$key}++ |
|
582
|
8 |
7 |
unless exists $second_set{$key} |
|
597
|
0 |
12 |
if ref $key |
|
609
|
9 |
15 |
if @buffer |
|
613
|
6 |
9 |
unless defined $outer_item |
|
617
|
0 |
9 |
if ref $key |
|
619
|
7 |
2 |
if (exists $inner_hash{$key}) |
|
642
|
0 |
78 |
if ref $key |
|
643
|
1 |
77 |
unless defined $key |
|
650
|
28 |
68 |
unless defined $outer_item |
|
654
|
0 |
68 |
if ref $key |
|
655
|
1 |
67 |
unless defined $key |
|
658
|
46 |
22 |
exists $inner_lookup{$key} ? : |
|
681
|
1 |
7 |
unless &$predicate($item) |
|
691
|
6 |
13 |
if ($predicate) { } |
|
693
|
4 |
5 |
if &$predicate($item) |
|
699
|
9 |
4 |
defined $item ? : |
|
707
|
1 |
4 |
if ($comparer) { } |
|
736
|
3 |
1 |
unless defined $item1 or defined $item2 |
|
739
|
1 |
10 |
unless defined $item1 and defined $item2 |
|
742
|
1 |
9 |
unless &$comparer($item1, $item2) |
|
755
|
3 |
5 |
if ($predicate) { } |
|
757
|
2 |
7 |
if &$predicate($item) |
|
763
|
4 |
1 |
if defined $item |
|
773
|
2 |
2 |
if (@_ >= 2) { } |
|
|
2 |
0 |
elsif (@_ == 1) { } |
|
779
|
0 |
2 |
if (ref $_[0] eq 'CODE') { } |
|
788
|
2 |
2 |
$@ ? : |
|
796
|
0 |
3 |
if ($predicate) { } |
|
798
|
0 |
0 |
if &$predicate($items[$i]) |
|
803
|
0 |
3 |
unless @items |
|
813
|
2 |
7 |
if (@_ >= 2) { } |
|
|
3 |
4 |
elsif (@_ == 1) { } |
|
819
|
2 |
1 |
if (ref $_[0] eq 'CODE') { } |
|
829
|
3 |
6 |
if ($predicate) { } |
|
831
|
1 |
6 |
if &$predicate($items[$i]) |
|
836
|
2 |
4 |
@items ? : |
|
848
|
2 |
6 |
if $predicate and not &$predicate($item) |
|
851
|
2 |
4 |
if ($count > 1) |
|
857
|
1 |
2 |
if $count == 0 |
|
869
|
2 |
4 |
if $predicate and not &$predicate($item) |
|
872
|
1 |
3 |
if ($count > 1) |
|
878
|
2 |
1 |
$count == 1 ? : |
|
884
|
1 |
3 |
if $index < 0 |
|
890
|
2 |
3 |
if $current == $index |
|
900
|
1 |
2 |
if $index < 0 |
|
906
|
1 |
3 |
if $current == $index |
|
921
|
0 |
45 |
if ($predicate) |
|
951
|
2 |
3 |
if not defined $min or $val < $min |
|
964
|
3 |
2 |
if not defined $max or $val > $max |
|
981
|
0 |
1 |
if $count == 0 |
|
997
|
1 |
1 |
if $count == 0 |
|
1007
|
2 |
5 |
if (@args == 1) { } |
|
|
4 |
1 |
elsif (@args == 2) { } |
|
|
1 |
0 |
elsif (@args == 3) { } |
|
1012
|
1 |
1 |
unless defined $seed |
|
1037
|
1 |
5 |
$result_selector ? : |
|
1077
|
0 |
11 |
unless defined $key |
|
1101
|
0 |
9 |
unless defined $key |
|
1114
|
1 |
5 |
unless ($has_default_arg) |
|
1125
|
2 |
9 |
if (defined $item) |
|
1131
|
5 |
3 |
unless ($has_elements or $returned_default) |
|
1145
|
6 |
0 |
if ($] >= 5.006) { } |
|
1147
|
0 |
6 |
unless eval " open(\$fh, '>', \$filename) " |
|
1151
|
0 |
0 |
unless open $fh, "> $filename" |
|
1161
|
9 |
1 |
defined $record->{$_} ? : |
|
1230
|
287 |
63 |
$i < scalar @sorted ? : |
|
1259
|
88 |
475 |
if ($specs->[$i]{'dir'} < 0) |
|
1260
|
438 |
125 |
if ($cmp != 0) |
|
1262
|
438 |
19 |
$r != 0 ? : |
|
1277
|
2 |
462 |
unless defined $val |
|
1278
|
113 |
351 |
if ($type eq 'num') { } |
|
|
155 |
196 |
elsif ($type eq 'str') { } |
|
1280
|
111 |
2 |
defined $val && length $val ? : |
|
1289
|
45 |
151 |
if ($t =~ /^[+-]?(?:\d+\.?\d*|\d*\.\d+)(?:[eE][+-]?\d+)?$/) { } |
|
1301
|
124 |
439 |
if ($type eq 'num') { } |
|
|
178 |
261 |
elsif ($type eq 'str') { } |
|
1311
|
60 |
201 |
if ($fa == 0 and $fb == 0) { } |
|
|
201 |
0 |
elsif ($fa == 1 and $fb == 1) { } |