| line |
true |
false |
branch |
|
282
|
0 |
6 |
ref $_[0] ? : |
|
286
|
4 |
2 |
unless isa(ref $params{'Location'}, 'HTML::Location') |
|
287
|
1 |
1 |
unless -d $params{'Location'}->path and -w _ |
|
318
|
0 |
17 |
unless my $Path = $self->_TransformPath($_[0]) |
|
340
|
0 |
12 |
unless my $filepath = $self->filename($_[0]) |
|
342
|
9 |
3 |
$Provider ? : |
|
344
|
4 |
8 |
unless my $filename = &List::Util::first(sub {
$self->_exists($_);
}
, map({"$filepath.$_";} @extentions)) |
|
365
|
0 |
3 |
unless my $Location = $self->exists(shift()) |
|
366
|
0 |
3 |
unless File::Slurp::read_file($Location->path, 'scalar_ref', 1) |
|
383
|
1 |
1 |
unless my $Provider = $self->_Provider($_[0]) |
|
387
|
0 |
1 |
unless defined $Location |
|
388
|
0 |
1 |
if $Location |
|
391
|
0 |
1 |
unless my $file = $self->filename($_[0]) |
|
392
|
0 |
1 |
unless my $ext = $Provider->extension |
|
396
|
0 |
1 |
unless my $image = $Provider->image |
|
399
|
0 |
1 |
unless my $directory = File::Basename::dirname($Location->path) |
|
401
|
0 |
1 |
if $@ |
|
402
|
0 |
1 |
unless File::Slurp::write_file($Location->path, $image) |
|
422
|
0 |
1 |
unless my $TPath = $self->_TransformPath($_[0]) |
|
426
|
0 |
1 |
unless defined $Location |
|
427
|
0 |
1 |
unless $Location |
|
430
|
0 |
1 |
unless -f $Location->path |
|
431
|
1 |
0 |
&File::Remove::remove($Location->path) ? : |
|
444
|
20 |
0 |
defined $_[0] ? : |