| line |
true |
false |
branch |
|
42
|
0 |
14 |
unless ref $arg{'content'} or defined $arg{'path'} |
|
48
|
14 |
0 |
if (defined(my $content = delete $arg{'content'})) |
|
50
|
9 |
5 |
if (my $encoding = delete $arg{'encoding'}) { } |
|
|
0 |
5 |
elsif (not ref $content) { } |
|
|
5 |
0 |
elsif ('SCALAR' eq ref $content) { } |
|
51
|
0 |
9 |
unless $decode{$encoding} |
|
56
|
0 |
0 |
unless open my $fh, '<', $content |
|
62
|
0 |
0 |
if @stat |
|
68
|
14 |
0 |
if ($arg{'path'}) { } |
|
105
|
2 |
0 |
if defined $_ |
|
109
|
0 |
1 |
defined $where ? : |
|
111
|
0 |
1 |
unless -d $where or mkdir $where |
|
118
|
0 |
1 |
unless my $fh = 'IO::File'->new($path, '>') |
|
134
|
12 |
2 |
unless defined $file |
|
144
|
1 |
0 |
unless defined $file |
|
158
|
13 |
14 |
unless $handled{$content_type} or $content_type =~ m[ \A text/ ]msx |
|
224
|
1 |
0 |
unless (defined $fn) |
|
230
|
0 |
1 |
unless defined $encoding |
|
232
|
0 |
1 |
unless my $code = $known_encoding{$encoding} |