| line |
true |
false |
branch |
|
25
|
5 |
9 |
if ($debug) |
|
34
|
1 |
4 |
unless ($filename) |
|
41
|
0 |
4 |
unless (open $fh, "$filename") |
|
53
|
1 |
25 |
unless ($data) |
|
61
|
0 |
25 |
unless ($IOS) |
|
74
|
0 |
0 |
unless ($url) |
|
84
|
0 |
0 |
unless ($request) |
|
92
|
0 |
0 |
if ($response->is_success) { } |
|
103
|
1 |
7 |
unless ($filenameorhandle) |
|
109
|
1 |
6 |
unless ($dataorarrayref) |
|
117
|
0 |
6 |
unless ($handle) |
|
135
|
2 |
16 |
unless ($dataorarrayref) |
|
145
|
1 |
15 |
if $$options{'addNewline'} |
|
147
|
2 |
14 |
if $$options{'gzip'} |
|
155
|
5 |
0 |
unless defined $verbose and int $verbose == 0 |
|
164
|
0 |
6 |
if (ref $filenameorhandle eq 'GLOB') { } |
|
166
|
0 |
0 |
unless ($filenameorhandle->opened) |
|
176
|
4 |
2 |
if $$options{'clobberFile'} |
|
177
|
0 |
6 |
if $$options{'appendFile'} |
|
181
|
0 |
6 |
unless (open $handle, "$openmode$filenameorhandle") |
|
194
|
5 |
11 |
if (ref $dataorarrayref eq 'ARRAY') { } |
|
215
|
25 |
2 |
if (@lines) { } |
|
223
|
2 |
6 |
if ($_ eq '') { } |
|
249
|
0 |
29 |
unless ($handle) |
|
255
|
3 |
26 |
if ($$options{'tryGzip'}) |
|
257
|
3 |
0 |
if (my $gunzipped = $this->_tryGzipInflate($handle)) |
|
276
|
16 |
76 |
if ($$options{'stripComments'}) |
|
277
|
4 |
12 |
if $line =~ /^\s*\#[^\#]/ |
|
284
|
64 |
24 |
if ($line =~ /^[^\t\s]/) { } |
|
|
18 |
6 |
elsif ($line =~ /^([\t\s])(.*)/) { } |
|
|
6 |
0 |
elsif ($line =~ /^[\s\t]*$/) { } |
|
287
|
64 |
0 |
if ($line =~ /(.*?)\s*\:\s*(.*)$/) { } |
|
292
|
3 |
61 |
if ($$options{'discardCase'}) |
|
297
|
61 |
3 |
unless ($$options{'verbMultiLine'}) |
|
305
|
0 |
64 |
if ($$options{'verbMultiLine'} and ($$data{$lastfield} || '') =~ /\n/o) |
|
320
|
0 |
18 |
unless ($lastfield) |
|
325
|
6 |
12 |
if ($$options{'verbMultiLine'}) { } |
|
|
3 |
9 |
elsif ($2 eq '.') { } |
|
336
|
0 |
6 |
if ($$options{'verbMultiLine'} and $$data{$lastfield} =~ /\n/o) |
|
340
|
5 |
1 |
if (keys %$data > 0) |
|
352
|
27 |
2 |
if (keys %$data > 0) |
|
377
|
6 |
29 |
if ($$options{'useTieIxHash'}) |
|
380
|
0 |
6 |
if ($@) |
|
396
|
0 |
6 |
if ($$this{'_verbose'}) |