| line |
true |
false |
branch |
|
42
|
8 |
0 |
if (defined(my $content = delete $arg{'content'})) |
|
44
|
8 |
0 |
if (my $encoding = delete $arg{'encoding'}) { } |
|
|
0 |
0 |
elsif (ref $content) { } |
|
45
|
0 |
8 |
unless $decode{$encoding} |
|
49
|
0 |
0 |
unless $content = 'IO::File'->new($content, '<') |
|
53
|
0 |
8 |
unless ref $content or defined $arg{'path'} |
|
72
|
0 |
135 |
unless length $a <=> length $b |
|
77
|
0 |
45 |
unless (@rslt) |
|
78
|
0 |
0 |
unless length $a <=> length $b |
|
84
|
16 |
29 |
if defined $base and '' ne $base and not $base =~ m[ / \z ]msx |
|
111
|
1 |
0 |
if @files |
|
122
|
5 |
8 |
unless $handled{$rslt->header('Content-Type')} |
|
151
|
18 |
36 |
unless $file->is_file |
|
154
|
0 |
36 |
unless $name =~ s/ $base //msx |
|
170
|
2 |
0 |
unless (defined $fn) |
|
176
|
0 |
2 |
unless defined $encoding |
|
179
|
2 |
0 |
if (defined $encoding and '' ne $encoding) |
|
180
|
0 |
2 |
unless exists $known_encoding{$encoding} |
|
192
|
44 |
127 |
if (defined $prefix and '' ne $prefix) { } |
|
193
|
44 |
0 |
unless $prefix =~ m[ / \z ]msx |