| line |
true |
false |
branch |
|
37
|
0 |
0 |
if (UNIVERSAL::isa($file, 'File::RandomAccess')) { } |
|
|
0 |
0 |
elsif (ref $file eq 'GLOB') { } |
|
44
|
0 |
0 |
unless open CSVFILE, $file |
|
49
|
0 |
0 |
unless defined $delim |
|
53
|
0 |
0 |
if $buff =~ /(\x0d\x0a|\x0d|\x0a)/ |
|
61
|
0 |
0 |
if ($v =~ s/^"//) { } |
|
64
|
0 |
0 |
if (@toks) { } |
|
68
|
0 |
0 |
unless $raf->ReadLine($buff) |
|
70
|
0 |
0 |
unless @toks |
|
81
|
0 |
0 |
if (@tags) { } |
|
85
|
0 |
0 |
unless length $vals[$i] or defined $missingValue and $missingValue eq "" |
|
87
|
0 |
0 |
defined $missingValue && $vals[$i] eq $missingValue ? : |
|
91
|
0 |
0 |
if ($fileInfo{'SourceFile'}) |
|
99
|
0 |
0 |
unless length $_ |
|
100
|
0 |
0 |
unless @tags |
|
101
|
0 |
0 |
unless /^[-\w]+(:[-\w+]+)?#?$/ |
|
104
|
0 |
0 |
if $err |
|
105
|
0 |
0 |
unless @tags |
|
107
|
0 |
0 |
if lc $tags[0] eq "sourcefile" |
|
110
|
0 |
0 |
if $openedFile |
|
112
|
0 |
0 |
unless $found or $err |
|
113
|
0 |
0 |
$err ? : |
|
138
|
443 |
58 |
if ($buffPt) { } |
|
140
|
0 |
443 |
unless defined $pos |
|
149
|
0 |
501 |
unless defined $pos |
|
150
|
58 |
443 |
if ($pos >= length $$buffPt or $readMore) |
|
151
|
0 |
58 |
unless defined $raf |
|
154
|
0 |
58 |
if ($offset) { } |
|
156
|
0 |
0 |
unless $raf->Read($buff, 65536) |
|
159
|
0 |
58 |
unless $raf->Read($$buffPt, 65536) |
|
161
|
58 |
0 |
unless ($didBOM) |
|
168
|
501 |
0 |
unless ($tok) |
|
170
|
0 |
501 |
unless $$buffPt =~ /(\S)/g |
|
175
|
104 |
397 |
if ($tok eq '{') { } |
|
|
17 |
380 |
elsif ($tok eq '[') { } |
|
|
289 |
91 |
elsif ($tok eq '"') { } |
|
|
8 |
83 |
elsif ($tok eq ']' or $tok eq '}' or $tok eq ',') { } |
|
176
|
104 |
0 |
unless defined $rtnVal |
|
179
|
205 |
0 |
unless (defined $key) |
|
184
|
202 |
3 |
if (defined $key) |
|
186
|
0 |
202 |
unless $$buffPt =~ /(\S)/g |
|
187
|
0 |
202 |
unless $1 eq ":" |
|
190
|
0 |
202 |
unless defined $val |
|
195
|
0 |
205 |
unless $$buffPt =~ /(\S)/g |
|
196
|
104 |
101 |
if $1 eq "}" |
|
197
|
0 |
101 |
unless $1 eq "," |
|
200
|
17 |
0 |
unless defined $rtnVal |
|
205
|
28 |
5 |
if defined $item |
|
207
|
0 |
33 |
unless $$buffPt =~ /(\S)/g |
|
208
|
17 |
16 |
if $1 eq "]" |
|
209
|
0 |
16 |
unless $1 eq "," |
|
213
|
0 |
289 |
unless $$buffPt =~ /(\\*)"/g |
|
214
|
289 |
0 |
unless length $1 & 1 |
|
219
|
0 |
0 |
unless $unescapeJSON{$1} |
|
221
|
0 |
289 |
if ($rtnVal =~ m[^base64:[A-Za-z0-9+/]*={0,2}$] and length($rtnVal) % 4 == 3) |
|
230
|
0 |
83 |
unless $$buffPt =~ /([\s:,\}\]])/g |
|
252
|
58 |
0 |
if (UNIVERSAL::isa($file, 'File::RandomAccess')) { } |
|
|
0 |
0 |
elsif (ref $file eq 'GLOB') { } |
|
259
|
0 |
0 |
unless open JSONFILE, $file |
|
265
|
0 |
58 |
if $openedFile |
|
266
|
58 |
0 |
unless (ref $obj eq "ARRAY") |
|
267
|
0 |
58 |
unless ref $obj eq "HASH" |
|
272
|
0 |
58 |
unless ref $info eq "HASH" |
|
274
|
58 |
0 |
unless (defined $info->{'SourceFile'}) |
|
276
|
0 |
58 |
if ($key) { } |
|
283
|
1 |
57 |
if (defined $missingValue) |
|
289
|
58 |
0 |
$found ? : |