| line |
true |
false |
branch |
|
122
|
0 |
11 |
if (@_ > 1) { } |
|
129
|
0 |
11 |
if ($ref =~ /^Path::Class::File/) { } |
|
|
8 |
3 |
elsif (not $ref and ref \$file ne 'GLOB') { } |
|
161
|
7 |
9 |
if (not ref $destination and ref \$destination ne 'GLOB') { } |
|
163
|
0 |
7 |
unless open $fh, ">$io_layer", $destination |
|
210
|
8 |
12 |
if (@_) |
|
232
|
16 |
16 |
if (@_) |
|
251
|
8 |
11 |
if ($$self{'encoding'}) |
|
261
|
9 |
2 |
if ($content_type) |
|
262
|
9 |
0 |
if ($content_type =~ /charset\s*=(.+)/) |
|
267
|
2 |
9 |
unless ($encoding) |
|
269
|
1 |
1 |
if (my(@suspects) = $self->encode_suspects) { } |
|
276
|
0 |
2 |
unless ref $decoder |
|
298
|
0 |
27 |
if (@_) { } |
|
302
|
11 |
16 |
unless ($$self{'io_layer'}) |
|
322
|
2 |
2 |
if (@_) |
|
327
|
3 |
1 |
if (my $suspects_ref = $$self{'EncodeSuspects'}) { } |
|
369
|
0 |
0 |
if ($comment =~ /InstanceBegin template="([^"]+)"/) |
|
380
|
0 |
71 |
if $link_path =~ /^\$/ |
|
381
|
0 |
71 |
if $link_path =~ /^\[%.*%\]$/ |
|
383
|
1 |
70 |
if $uri->scheme |
|
390
|
114 |
14 |
unless ($self->has_base) |
|
391
|
1 |
113 |
if ($tag eq 'base') |
|
397
|
71 |
613 |
if (exists $$attr_dict{$an_attr}) |
|
399
|
1 |
70 |
unless $newlink |
|
405
|
0 |
114 |
if ($tag eq 'param') |
|
406
|
0 |
0 |
if ($$attr_dict{'name'} eq 'src') |
|
408
|
0 |
0 |
if ($newlink) |
|
415
|
70 |
44 |
if ($is_changed) |
|
428
|
0 |
1 |
unless my $source_path = $self->source_path |
|
430
|
0 |
1 |
unless my $filename = basename($source_path) |
|
439
|
1 |
6 |
if (-d $destination_path) { } |
|
443
|
0 |
6 |
unless ($name) |
|
456
|
0 |
11 |
unless $encoding |
|
459
|
7 |
4 |
if (grep {/$encoding/;} 'utf8', 'utf-8', 'UTF-8') { } |
|
472
|
0 |
70 |
if ($attr_name eq '/') { } |
|
488
|
70 |
0 |
if (-e $abs_path) { } |
|
506
|
19 |
11 |
if (@_) { } |
|
|
8 |
3 |
elsif (not $$self{'source_handle'}) { } |
|
509
|
0 |
8 |
unless my $path = $self->source_path |
|
510
|
0 |
8 |
unless open my $in, '<', $path |
|
519
|
8 |
70 |
if (@_) { } |
|
|
3 |
67 |
elsif (not $$self{'source_uri'}) { } |
|
523
|
0 |
3 |
if (my $path = $self->source_path) { } |
|
537
|
16 |
70 |
if (@_) { } |
|
|
0 |
70 |
elsif (not $$self{'destination_uri'}) { } |
|
541
|
0 |
0 |
if (my $path = $self->destination_path) { } |