| line |
true |
false |
branch |
|
66
|
0 |
14 |
unless length $$dataPt |
|
69
|
0 |
14 |
if ($fast < 3 and length $$dataPt == $Image::ExifTool::testLen) |
|
70
|
0 |
0 |
unless $raf->Read($buff, 65536) |
|
76
|
1 |
13 |
if ($$dataPt =~ /([\0-\x06\x0e-\x1a\x1c-\x1f\x7f])/) { } |
|
78
|
0 |
1 |
if ($$dataPt =~ /^(\xff\xfe\0\0|\0\0\xfe\xff)/) { } |
|
|
1 |
0 |
elsif ($$dataPt =~ /^(\xff\xfe|\xfe\xff)/) { } |
|
79
|
0 |
0 |
if ($1 eq "\377\376\000\000") { } |
|
81
|
0 |
0 |
if $$dataPt =~ /(\r\0\0\0\n|\r|\n)\0\0\0/ |
|
84
|
0 |
0 |
if $$dataPt =~ /\0\0\0(\r\0\0\0\n|\r|\n)/ |
|
87
|
0 |
1 |
if ($1 eq "\377\376") { } |
|
89
|
0 |
0 |
if $$dataPt =~ /(\r\0\n|\r|\n)\0/ |
|
92
|
1 |
0 |
if $$dataPt =~ /\0(\r\0\n|\r|\n)/ |
|
101
|
10 |
3 |
if ($isUTF8 == 0) { } |
|
|
1 |
2 |
elsif ($isUTF8 > 0) { } |
|
|
1 |
1 |
elsif (not $$dataPt =~ /[\x80-\x9f]/) { } |
|
105
|
1 |
0 |
$$dataPt =~ /^\xef\xbb\xbf/ ? : |
|
111
|
5 |
8 |
if $$dataPt =~ /(\r\n|\r|\n)/ |
|
119
|
0 |
14 |
if $fast == 3 or not $raf->Seek(0, 0) |
|
121
|
2 |
12 |
if defined $isBOM |
|
124
|
1 |
13 |
if $fast or not defined $isUTF8 |
|
128
|
1 |
12 |
if ($et->{'FileType'} eq "CSV") |
|
132
|
1 |
2 |
if (not defined $delim) { } |
|
|
2 |
0 |
elsif (not $quot) { } |
|
135
|
1 |
0 |
if ($count{','} > $count{';'} and $count{','} > $count{"\t"}) { } |
|
|
0 |
0 |
elsif ($count{';'} > $count{"\t"}) { } |
|
|
0 |
0 |
elsif ($count{"\t"}) { } |
|
145
|
1 |
0 |
unless ($ncols) |
|
155
|
0 |
2 |
if $buff =~ /(^|$delim)(["'])(.*?)\2(?=$delim|$)/gs |
|
157
|
0 |
3 |
if (++$nrows == 1000 and $et->Warn("Not counting rows past 1000", 2)) |
|
165
|
1 |
0 |
if $nrows |
|
168
|
0 |
12 |
if $et->{'VALUE'}{'FileSize'} and $et->{'VALUE'}{'FileSize'} > 20000000 and $et->Warn("Not counting lines/words in text file larger than 20 MB", 2) |
|
175
|
4 |
8 |
if $nl |
|
179
|
0 |
12 |
if (not $nl and $buff =~ /(\r\n|\r|\n)$/) |
|
183
|
12 |
0 |
if $raf->Tell < 65536 |
|
185
|
0 |
0 |
if ($isUTF8 >= 0) { } |
|
|
0 |
0 |
elsif ($enc eq 'iso-8859-1' and $buff =~ /[\x80-\x9f]/) { } |
|
187
|
0 |
0 |
if ($isUTF8 > 0) { } |
|
|
0 |
0 |
elsif ($isUTF8 < 0) { } |
|
190
|
0 |
0 |
$buff =~ /[\x80-\x9f]/ ? : |
|
196
|
0 |
12 |
if ($et->{'VALUE'}{'MIMEEncoding'} ne $enc) |