| line |
true |
false |
branch |
|
64
|
3 |
703 |
if defined $$ob->[5] |
|
65
|
61 |
645 |
if defined $$ob->[6] |
|
95
|
2 |
70 |
$base < 0 ? : |
|
97
|
42 |
72 |
if $done{$key} |
|
99
|
87 |
31 |
$_ > $base ? : |
|
112
|
26 |
10002 |
if (not defined $cidx{$key}) { } |
|
|
4 |
9998 |
elsif (ref $cidx{$key} eq 'SCALAR') { } |
|
134
|
20002 |
14 |
defined $_ ? : |
|
135
|
5 |
46 |
if defined $$self->[2] |
|
140
|
2 |
20231 |
if length $row > $widths[0] |
|
141
|
2 |
20231 |
if length $mvoff[$row] > $widths[1] |
|
142
|
73 |
20160 |
if length $$self->[0][$row] > $widths[2] |
|
150
|
20221 |
12 |
defined $$self->[1][$_] ? : |
|
|
20221 |
12 |
defined $$self->[1][$_] ? : |
|
260
|
4638 |
3806 |
if defined $$self->[3]{lc $key} |
|
264
|
989 |
2817 |
if defined $$self->[3]{lc $pad} and not $is_quoted |
|
267
|
7 |
2810 |
$is_quoted ? : |
|
276
|
1 |
11 |
if $$self->[4] |
|
278
|
6 |
5 |
unless (defined $$self->[3]{lc $key}) |
|
304
|
2 |
54 |
if $$self->[4] |
|
310
|
16 |
38 |
unless ($cur_count) |
|
321
|
27 |
27 |
if ($cur_count > $new_count) { } |
|
|
15 |
12 |
elsif ($cur_count < $new_count) { } |
|
330
|
19 |
8 |
if ($new_count == 0) |
|
334
|
0 |
19 |
unless scalar @{$$self->[3]{$key};} == 0 |
|
347
|
42 |
12 |
unless $cur_count == $new_count |
|
386
|
1 |
791 |
unless defined $v |
|
388
|
7 |
784 |
if ($k =~ /^:/) { } |
|
390
|
2 |
789 |
unless $k =~ /./ |
|
391
|
2 |
787 |
unless $k =~ /^$PARSE_RE__token$/o |
|
393
|
3 |
784 |
if (ref $v eq 'ARRAY') { } |
|
422
|
1 |
7 |
if defined $$self->[2] |
|
424
|
7 |
1 |
if defined $$self->[3] |
|
450
|
7 |
7403 |
unless defined $$self->[3] |
|
456
|
2 |
7408 |
unless $key =~ /./ |
|
457
|
3 |
7405 |
unless $key =~ /^$PARSE_RE__token$/o |
|
459
|
7343 |
62 |
if (not $have_value_arg) { } |
|
|
48 |
14 |
elsif (UNIVERSAL::isa($v, 'ARRAY')) { } |
|
|
2 |
12 |
elsif ($self->_key_multiple_value_p($key)) { } |
|
461
|
2773 |
4570 |
unless defined $$self->[3]{$key} |
|
462
|
4545 |
25 |
unless $self->_key_multiple_value_p($key) |
|
508
|
603 |
5 |
if ($text eq 'from') { } |
|
513
|
0 |
5 |
unless open $rd, '<', \$text |
|
524
|
3962 |
608 |
if (/^:?($PARSE_RE__token):\s+(.*)$/o) { } |
|
|
1 |
607 |
elsif (/^\s+(\S.*)$/) { } |
|
|
605 |
2 |
elsif (/^$/) { } |
|
532
|
1 |
605 |
unless $at_end |
|
562
|
7 |
203 |
unless defined $$self->[1][$i] |
|
698
|
34 |
120 |
if (scalar @_ == 0) { } |
|
701
|
1 |
119 |
if ${$$self[2];}->[4] |
|
724
|
6 |
15 |
unless defined ${$$self[2];}->[2] |
|
762
|
16 |
1 |
if (scalar @_ == 0) { } |
|
792
|
1 |
12 |
if $$$self->[4] |
|
794
|
1 |
11 |
if $#{$$$$self[0];} < $row |
|
796
|
8 |
4 |
if (UNIVERSAL::isa($name, ref($self) . '::Entry')) { } |
|
798
|
1 |
7 |
unless $name->name =~ /^$PARSE_RE__token$/o |
|
804
|
2 |
2 |
unless "$name" =~ /^$PARSE_RE__token$/o |
|
821
|
1 |
4 |
if $$$self->[4] and $count != $self->FETCHSIZE |
|
824
|
2 |
2 |
if ($count > $self->FETCHSIZE) { } |
|
|
1 |
1 |
elsif ($count < $self->FETCHSIZE) { } |
|
849
|
1 |
1 |
if $$$self->[4] |
|
861
|
1 |
2 |
if $$$self->[4] |
|
873
|
1 |
1 |
if $$$self->[4] and scalar @_ |
|
878
|
2 |
101 |
if (UNIVERSAL::isa($item, ref($self) . '::Entry')) { } |
|
882
|
2 |
101 |
unless $name =~ /^$PARSE_RE__token$/o |
|
894
|
1 |
4 |
if $$$self->[4] |
|
898
|
2 |
2 |
if defined $$$self->[2] |
|
907
|
1 |
1 |
if $$$self->[4] |
|
920
|
1 |
1 |
if $$$self->[4] and scalar @_ |
|
925
|
2 |
2 |
if (UNIVERSAL::isa($item, ref($self) . '::Entry')) { } |
|
929
|
2 |
2 |
unless $name =~ /^$PARSE_RE__token$/o |
|
943
|
1 |
9 |
unless defined $offset |
|
944
|
3 |
7 |
unless defined $length |
|
946
|
1 |
3 |
unless $length != 0 or scalar @_ |
|
948
|
2 |
7 |
if $$$self->[4] |
|
953
|
11 |
6 |
if (UNIVERSAL::isa($item, ref($self) . '::Entry')) { } |
|
963
|
2 |
5 |
if grep {not $_ =~ /^$PARSE_RE__token$/o;} @new_names |
|
1029
|
5 |
453 |
unless defined $$table->[3] |
|
1040
|
2 |
766 |
unless defined ${$$self[0];}->[3] |
|
1043
|
752 |
16 |
defined $row ? : |
|
1053
|
1 |
9 |
if $$T->[4] |
|
1055
|
1 |
8 |
unless defined $$T->[3] |
|
1059
|
2 |
7 |
if not defined $$T->[3]{$self->[2]} or $#{$$T->[3]{$self->[2]};} < $offset |
|
1067
|
3 |
789 |
unless defined ${$$self[0];}->[3] |
|
1070
|
782 |
10 |
if defined ${$$self[0];}->[3]{$self->[2]} |
|
1080
|
1 |
7 |
if $$T->[4] and $count != $self->FETCHSIZE |
|
1083
|
2 |
5 |
unless defined $$T->[3] |
|
1087
|
6 |
1 |
if defined $$T->[3]{$self->[2]} |
|
1088
|
4 |
3 |
if ($count > $self->FETCHSIZE) { } |
|
|
2 |
1 |
elsif ($count < $self->FETCHSIZE) { } |
|
1104
|
1 |
4 |
unless defined ${$$self[0];}->[3] |
|
1113
|
1 |
3 |
if ${$$self[0];}->[4] |
|
1115
|
1 |
2 |
unless defined ${$$self[0];}->[3] |
|
1126
|
1 |
1 |
if ${$$self[0];}->[4] |
|
1136
|
1 |
1 |
if $$T->[4] and scalar @_ |
|
1139
|
1 |
9 |
unless defined $$T->[3] |
|
1141
|
5 |
5 |
if (defined $$T->[3]{$self->[2]}) { } |
|
1162
|
1 |
6 |
if $$T->[4] |
|
1164
|
1 |
5 |
unless defined $$T->[3] |
|
1166
|
1 |
5 |
unless defined $$T->[3]{$self->[2]} |
|
1173
|
1 |
4 |
if defined $$T->[2] |
|
1178
|
1 |
4 |
if scalar @{$$T->[3]{$self->[2]};} == 0 |
|
1188
|
1 |
5 |
if $$T->[4] |
|
1190
|
1 |
4 |
unless defined $$T->[3] |
|
1192
|
1 |
4 |
unless defined $$T->[3]{$self->[2]} |
|
1204
|
1 |
3 |
if scalar @{$$T->[3]{$self->[2]};} == 0 |
|
1214
|
1 |
1 |
if $$T->[4] and scalar @_ |
|
1217
|
1 |
3 |
unless defined $$T->[3] |
|
1219
|
3 |
1 |
if (defined $$T->[3]{$self->[2]}) { } |
|
1241
|
1 |
8 |
unless defined $offset |
|
1242
|
2 |
7 |
unless defined $length |
|
1244
|
1 |
2 |
unless $length != 0 or scalar @_ |
|
1248
|
2 |
6 |
if $$T->[4] |
|
1250
|
1 |
5 |
unless defined $$T->[3] |
|
1254
|
5 |
1 |
if defined $$T->[3]{$self->[2]} |
|
1294
|
672 |
8 |
scalar @$self == 1 ? : |
|
1314
|
3 |
458 |
unless $key =~ /^$PARSE_RE__token$/o |
|
1323
|
2 |
9 |
if $$$self->[4] |
|
1332
|
1 |
2 |
if $$$self->[4] |
|
1340
|
1 |
1 |
if $$$self->[4] |
|
1353
|
1 |
14 |
unless defined $$$self->[3] |
|
1367
|
2 |
305 |
unless defined $$$self->[3] |
|
1401
|
1 |
167 |
if (scalar((caller) =~ /^WARC::Fields/)) |
|
1408
|
164 |
3 |
if defined $$self->[5] |
|
1419
|
1 |
265 |
if (scalar((caller) =~ /^WARC::Fields/)) |
|
1426
|
204 |
61 |
if defined $$self->[6] |