| line |
true |
false |
branch |
|
64
|
3 |
14 |
unless length $$dataPt |
|
67
|
0 |
14 |
if ($fast < 3 and length $$dataPt == $Image::ExifTool::testLen) |
|
68
|
0 |
0 |
unless $raf->Read($buff, 65536) |
|
74
|
1 |
13 |
if ($$dataPt =~ /([\0-\x06\x0e-\x1a\x1c-\x1f\x7f])/) { } |
|
76
|
0 |
1 |
if ($$dataPt =~ /^(\xff\xfe\0\0|\0\0\xfe\xff)/) { } |
|
|
1 |
0 |
elsif ($$dataPt =~ /^(\xff\xfe|\xfe\xff)/) { } |
|
77
|
0 |
0 |
if ($1 eq "\377\376\000\000") { } |
|
79
|
0 |
0 |
if $$dataPt =~ /(\r\0\0\0\n|\r|\n)\0\0\0/ |
|
82
|
0 |
0 |
if $$dataPt =~ /\0\0\0(\r\0\0\0\n|\r|\n)/ |
|
85
|
0 |
1 |
if ($1 eq "\377\376") { } |
|
87
|
0 |
0 |
if $$dataPt =~ /(\r\0\n|\r|\n)\0/ |
|
90
|
1 |
0 |
if $$dataPt =~ /\0(\r\0\n|\r|\n)/ |
|
99
|
10 |
3 |
if ($isUTF8 == 0) { } |
|
|
1 |
2 |
elsif ($isUTF8 > 0) { } |
|
|
1 |
1 |
elsif (not $$dataPt =~ /[\x80-\x9f]/) { } |
|
103
|
1 |
0 |
$$dataPt =~ /^\xef\xbb\xbf/ ? : |
|
109
|
5 |
8 |
if $$dataPt =~ /(\r\n|\r|\n)/ |
|
117
|
0 |
14 |
if $fast == 3 or not $raf->Seek(0, 0) |
|
119
|
2 |
12 |
if defined $isBOM |
|
122
|
1 |
13 |
if $fast or not defined $isUTF8 |
|
126
|
1 |
12 |
if ($et->{'FileType'} eq "CSV") |
|
130
|
1 |
2 |
if (not defined $delim) { } |
|
|
2 |
0 |
elsif (not $quot) { } |
|
133
|
1 |
0 |
if ($count{','} > $count{';'} and $count{','} > $count{"\t"}) { } |
|
|
0 |
0 |
elsif ($count{';'} > $count{"\t"}) { } |
|
|
0 |
0 |
elsif ($count{"\t"}) { } |
|
143
|
1 |
0 |
unless ($ncols) |
|
153
|
0 |
2 |
if $buff =~ /(^|$delim)(["'])(.*?)\2(?=$delim|$)/gs |
|
155
|
0 |
3 |
if (++$nrows == 1000 and $et->Warn("Not counting rows past 1000", 2)) |
|
163
|
1 |
0 |
if $nrows |
|
166
|
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) |
|
173
|
4 |
8 |
if $nl |
|
177
|
0 |
12 |
if (not $nl and $buff =~ /(\r\n|\r|\n)$/) |
|
181
|
12 |
0 |
if $raf->Tell < 65536 |
|
183
|
0 |
0 |
if ($isUTF8 >= 0) { } |
|
|
0 |
0 |
elsif ($enc eq 'iso-8859-1' and $buff =~ /[\x80-\x9f]/) { } |
|
185
|
0 |
0 |
if ($isUTF8 > 0) { } |
|
|
0 |
0 |
elsif ($isUTF8 < 0) { } |
|
188
|
0 |
0 |
$buff =~ /[\x80-\x9f]/ ? : |
|
195
|
0 |
12 |
if (defined $et->{'VALUE'}{'MIMEEncoding'} and $et->{'VALUE'}{'MIMEEncoding'} ne $enc) |