| line |
true |
false |
branch |
|
17
|
0 |
68 |
if ref $class |
|
18
|
1 |
67 |
if @_ % 2 |
|
26
|
1 |
66 |
if %args |
|
27
|
1 |
65 |
if ref $inc |
|
28
|
1 |
64 |
if ref $noinc |
|
31
|
1 |
63 |
if $inc eq $noinc |
|
32
|
2 |
61 |
if $inc eq "|" or $noinc eq "|" |
|
36
|
48 |
13 |
if (defined $set) { } |
|
38
|
1 |
47 |
if ref $set ne "ARRAY" |
|
41
|
21 |
131 |
if (ref $e) { } |
|
42
|
1 |
20 |
if ref $e ne "ARRAY" |
|
43
|
1 |
19 |
if $eqs |
|
44
|
2 |
17 |
unless @{$e;} |
|
46
|
3 |
32 |
if ref $sub_e or not defined $sub_e |
|
48
|
4 |
28 |
if exists $seen{$sub_e} |
|
52
|
1 |
130 |
unless defined $e |
|
53
|
1 |
129 |
if exists $seen{$e} |
|
60
|
1 |
12 |
if defined $eqs |
|
63
|
13 |
33 |
if (defined $elem_ids) |
|
64
|
3 |
10 |
unless defined $ext and defined $set |
|
66
|
1 |
9 |
if ref $elem_ids ne "HASH" |
|
71
|
12 |
30 |
if ($ext) { } |
|
|
21 |
9 |
elsif (ref $set) { } |
|
72
|
11 |
1 |
if ($set) { } |
|
74
|
1 |
41 |
if ref $e |
|
76
|
8 |
2 |
if ($elem_ids) { } |
|
77
|
1 |
7 |
if keys %$elem_ids != @$set |
|
80
|
2 |
22 |
unless defined $e_id |
|
81
|
3 |
19 |
if not $e_id =~ /^\d$/ && defined $set->[$e_id] or $set->[$e_id] ne $e |
|
100
|
5 |
70 |
if (ref $entry) { } |
|
108
|
2 |
3 |
if @$entry > 1 |
|
114
|
0 |
21 |
if defined $eqs and @eqs_tmp |
|
115
|
1 |
20 |
if @eqs_tmp |
|
118
|
14 |
20 |
if (defined $eqs) |
|
119
|
1 |
13 |
if ref $eqs ne "ARRAY" |
|
123
|
1 |
27 |
if ref $eqArray ne "ARRAY" |
|
124
|
2 |
25 |
unless @{$eqArray;} |
|
126
|
1 |
56 |
if ref $entry |
|
127
|
1 |
55 |
unless defined $entry |
|
128
|
2 |
53 |
unless exists $elem_ids->{$entry} |
|
129
|
2 |
51 |
if exists $seen{$entry} |
|
132
|
5 |
14 |
if @{$eqArray;} == 1 |
|
173
|
2 |
7 |
if @$arr1 != @$arr2 |
|
175
|
1 |
35 |
if $arr1->[$i] != $arr2->[$i] |
|
185
|
9 |
61 |
if ($pedantic) |
|
186
|
1 |
8 |
unless substr($header, -1, 1) eq "|" |
|
188
|
1 |
68 |
unless $header =~ s/^\s*\|.*?\|\s*// |
|
189
|
3 |
65 |
$header eq '|' ? : |
|
190
|
2 |
66 |
if $header eq "" |
|
194
|
2 |
190 |
if exists $elem_ids{$name} |
|
208
|
6 |
70 |
unless $_[0] |
|
209
|
2 |
68 |
$_[1] ? : |
|
354
|
5 |
33 |
if (not ${$_[0];} =~ /\n/) { } |
|
366
|
1 |
81 |
if @_ % 2 |
|
370
|
1 |
80 |
unless @_ |
|
372
|
2 |
77 |
if %args |
|
374
|
41 |
36 |
if (my $ref_str = ref $src) { } |
|
375
|
38 |
3 |
if ($ref_str eq 'ARRAY') { } |
|
|
0 |
3 |
elsif ($ref_str eq 'GLOB') { } |
|
|
2 |
1 |
elsif ($ref_str eq 'SCALAR') { } |
|
377
|
1 |
169 |
if ref $e or not defined $e |
|
391
|
36 |
39 |
unless $self->{'prespec'} |
|
393
|
22 |
24 |
wantarray ? : |
|
397
|
1 |
2 |
if @_ > 1 |
|
398
|
1 |
2 |
if @_ > 1 |
|
399
|
1 |
11 |
if @_ > 1 |
|
403
|
1 |
35 |
if @_ > 2 |
|
405
|
2 |
33 |
if ($_[1]) { } |
|
406
|
1 |
1 |
defined $_[0]{'elems'} ? : |
|
414
|
1 |
43 |
if @_ > 2 |
|
420
|
0 |
33 |
if @_ > 2 |
|
427
|
0 |
24 |
if @_ > 2 |
|
430
|
2 |
22 |
if ($dup) { } |
|
431
|
1 |
1 |
unless $self->{'eq_ids'} |
|
441
|
1 |
29 |
if @_ % 2 |
|
445
|
1 |
28 |
if %args |
|
446
|
3 |
25 |
unless $self->{'matrix'} |
|
448
|
1 |
24 |
if ($dup) { } |
|
455
|
1 |
24 |
if $bless |
|
462
|
1 |
10 |
if @_ % 2 |
|
465
|
1 |
9 |
if %args |
|
468
|
2 |
7 |
unless $matrix |
|
470
|
2 |
5 |
if $bless |