| line |
true |
false |
branch |
|
18
|
2 |
1 |
unless ($fromfile) |
|
34
|
2 |
1 |
if (@_) { } |
|
35
|
0 |
2 |
if ($fname) { } |
|
48
|
1 |
0 |
if ($fname) { } |
|
60
|
1 |
2 |
if ($ARGV[$i] =~ /^-F/) |
|
62
|
0 |
1 |
if ($ARGV[$i] =~ /^-F(\w+)/) { } |
|
66
|
1 |
0 |
if ($fname = $ARGV[$i + 1]) { } |
|
84
|
0 |
3 |
unless $file |
|
112
|
1 |
6 |
unless $expanded |
|
113
|
6 |
1 |
if (@_ and $$self{'STRICT'}) |
|
115
|
0 |
7 |
unless exists $$self{$key} |
|
120
|
6 |
1 |
@_ ? : |
|
128
|
0 |
5 |
unless open IN, $fname |
|
135
|
16 |
48 |
unless /\S/ |
|
137
|
12 |
3 |
length $1 >= 1 ? : |
|
139
|
0 |
15 |
unless defined $contline |
|
145
|
3 |
45 |
if ($v eq '-') |
|
148
|
3 |
9 |
if /^\./ |
|
154
|
1 |
2 |
if ($self) { } |
|
167
|
9 |
36 |
if (index(q('"]}), $delim) >= 0 and not $v =~ /$delim\s*$/) |
|
173
|
0 |
27 |
unless defined $contline |
|
176
|
9 |
18 |
if $v =~ /$delim\s*$/ |
|
180
|
17 |
28 |
if ($self) { } |
|
200
|
2 |
6 |
if ($arg eq '--') |
|
204
|
4 |
2 |
if (($k, $v) = $arg =~ /^(.*)=(.*)$/ and not $k =~ /^--/) { } |
|
205
|
2 |
2 |
$self ? : |
|
|
0 |
4 |
unless $self ? exists $$self{$k} : exists $C{$k} |
|
209
|
2 |
2 |
if ($self) { } |
|
233
|
6 |
0 |
exists $$href{$1} ? : |
|
245
|
9 |
43 |
if ($v =~ /^\s*\[\s*(.*?)\s*\]$/ms) { } |
|
|
6 |
37 |
elsif ($v =~ /^\s*\{\s*(.*?)\s*\}$/ms) { } |
|
|
6 |
31 |
elsif ($v =~ /^\s*(["'])(.*)\1$/ms) { } |
|
254
|
3 |
28 |
if $newline |
|
261
|
0 |
2 |
if ref $_[0] |
|
264
|
1 |
1 |
unless @_ |