line |
true |
false |
branch |
44
|
15 |
3 |
unless $p
|
48
|
0 |
3 |
&reftype($v) && 'ARRAY' eq &reftype($v) ? :
|
74
|
0 |
0 |
ref $_[0] eq 'SCALAR' ? :
|
75
|
0 |
0 |
@_ ? :
|
76
|
0 |
0 |
unless open my $F, $mode, $f
|
77
|
0 |
0 |
if (wantarray) { }
|
104
|
0 |
433 |
unless ref $x
|
106
|
0 |
433 |
if @_ and 'HASH' eq ref $_[-1]
|
107
|
433 |
0 |
unless exists $o->{'sep'}
|
108
|
433 |
0 |
unless exists $o->{'false_pat'} and defined $o->{'false_pat'}
|
110
|
433 |
0 |
defined $o->{'sep'} ? :
|
|
0 |
433 |
'ARRAY' eq ref $_ ? :
|
111
|
0 |
433 |
if (ref $x eq 'ARRAY') { }
|
112
|
0 |
0 |
unless $#{$x;} >= $x[0] and $$x[$x[0]]
|
113
|
0 |
0 |
if not ref $$x[$x[0]] and $$x[$x[0]] =~ /$o->{'false_pat'}/
|
114
|
0 |
0 |
if ref $$x[$x[0]] eq 'ARRAY'
|
115
|
0 |
0 |
if ref $$x[$x[0]] eq 'HASH'
|
116
|
0 |
0 |
if @x > 1
|
118
|
313 |
120 |
unless exists $$x{$x[0]} and $$x{$x[0]}
|
119
|
0 |
120 |
if not ref $$x{$x[0]} and $$x{$x[0]} =~ /$o->{'false_pat'}/
|
120
|
0 |
120 |
if ref $$x{$x[0]} eq 'ARRAY'
|
121
|
0 |
120 |
if ref $$x{$x[0]} eq 'HASH'
|
122
|
0 |
120 |
if @x > 1
|
145
|
0 |
86 |
unless ref $x
|
147
|
0 |
86 |
if @_ and 'HASH' eq ref $_[-1]
|
148
|
86 |
0 |
unless exists $o->{'sep'}
|
150
|
86 |
0 |
defined $o->{'sep'} ? :
|
|
0 |
86 |
'ARRAY' eq ref $_ ? :
|
151
|
0 |
86 |
if (ref $x eq 'ARRAY') { }
|
152
|
0 |
0 |
unless $#{$x;} >= $x[0] and defined $$x[$x[0]]
|
153
|
0 |
0 |
if @x > 1
|
155
|
40 |
46 |
unless exists $$x{$x[0]} and defined $$x{$x[0]}
|
156
|
0 |
46 |
if @x > 1
|