| line |
true |
false |
branch |
|
130
|
1 |
69 |
unless defined $filename |
|
131
|
1 |
68 |
if defined $options and ref $options ne "HASH" |
|
142
|
7 |
61 |
if (ref $filename) { } |
|
|
0 |
61 |
elsif ($filename eq '-') { } |
|
|
0 |
61 |
elsif ($filename =~ /^https?:/) { } |
|
|
0 |
61 |
elsif ($filename =~ /^data:/) { } |
|
143
|
0 |
7 |
if (ref $filename eq 'GLOB' or ref $filename eq 'IO::File') { } |
|
163
|
0 |
0 |
if ($res->is_success) { } |
|
|
0 |
0 |
elsif ($options->{'fail'} eq 'soft') { } |
|
175
|
0 |
0 |
unless ($filename =~ / ^ data:
(? .*? )
,
(? .* ) $
/sx) |
|
180
|
0 |
0 |
if ($options->{'fail'} eq 'soft') { } |
|
192
|
0 |
0 |
if ($mediatype and $mediatype =~ /^(.*);base64$/) |
|
196
|
0 |
0 |
if $mediatype |
|
197
|
0 |
0 |
if (not $enc) { } |
|
207
|
0 |
0 |
if ($mediatype and $mediatype =~ /;charset=([^;]*)/) |
|
218
|
0 |
61 |
if ($filename ne $name and $^O =~ /mswin/i) { } |
|
224
|
0 |
0 |
if $^E |
|
225
|
0 |
0 |
unless (Win32API::File::OsFHandleOpen("FILE", $fh, "r")) |
|
226
|
0 |
0 |
if $options->{'fail'} eq "soft" |
|
236
|
1 |
60 |
unless (open $f, "<:raw", $filename) |
|
238
|
1 |
0 |
if $options->{'fail'} eq "soft" |
|
244
|
67 |
0 |
if $options |
|
247
|
4 |
63 |
if ($options->{'blob'}) { } |
|
|
3 |
60 |
elsif ($encoded) { } |
|
|
13 |
47 |
elsif ($data =~ /^\xEF\xBB\xBF/) { } |
|
|
4 |
43 |
elsif ($data =~ /^\xFE\xFF/) { } |
|
|
4 |
39 |
elsif ($data =~ /^\xFF\xFE\x00\x00/) { } |
|
|
13 |
26 |
elsif ($data =~ /^\xFF\xFE/) { } |
|
|
4 |
22 |
elsif ($data =~ /^\x00\x00\xFE\xFF/) { } |
|
|
1 |
21 |
elsif ($options->{'encoding'}) { } |
|
258
|
0 |
13 |
if $options->{'debug'} |
|
263
|
0 |
4 |
if $options->{'debug'} |
|
268
|
0 |
4 |
if $options->{'debug'} |
|
273
|
0 |
13 |
if $options->{'debug'} |
|
278
|
0 |
4 |
if $options->{'debug'} |
|
286
|
0 |
1 |
if $options->{'debug'} |
|
293
|
5 |
16 |
if ($@) { } |
|
|
2 |
14 |
elsif (not $d =~ /[^[:ascii:]]/) { } |
|
294
|
0 |
5 |
if $options->{'debug'} |
|
299
|
0 |
2 |
if $options->{'debug'} |
|
304
|
0 |
14 |
if $options->{'debug'} |
|
311
|
0 |
67 |
if ($options->{'strip'}) |
|
315
|
4 |
63 |
unless $options->{'split'} |
|
319
|
51 |
12 |
if ($options->{'chomp'}) { } |
|
321
|
13 |
38 |
if $data =~ /.(?!\r\n|\n|\r)\z/ |
|
328
|
3 |
9 |
if $data =~ /(?:\r\n|\n|\r)([^\r\n]+)\z/ |
|
331
|
54 |
9 |
wantarray ? : |
|
346
|
0 |
2 |
unless defined $filename |
|
347
|
0 |
2 |
if defined $options and ref $options ne "HASH" |