| line |
true |
false |
branch |
|
191
|
0 |
21 |
if defined $$self{'html_suff'} |
|
217
|
0 |
39 |
unless defined($url = $self->url_2resource($url, $type, $enc)) |
|
220
|
8 |
31 |
if defined $f |
|
222
|
0 |
31 |
unless ($f, my $q) = $self->raw_name($url, $suggested, $type, $enc) |
|
226
|
0 |
31 |
unless defined $f |
|
230
|
0 |
31 |
unless (my $dirname, $f, $q) = $self->find_directory($f, $q, $url, $suggested, $type, $enc) |
|
235
|
0 |
31 |
unless defined $dirname |
|
238
|
0 |
31 |
unless defined $dirname |
|
240
|
0 |
31 |
unless ($f, my $suff) = $self->split_suffix($f, $dirname, $q, $url, $suggested, $type, $enc) |
|
243
|
0 |
31 |
unless ($f, $suff) = $self->choose_suffix($f, $suff, $dirname, $q, $url, $suggested, $type, $enc) |
|
246
|
0 |
31 |
unless ($f, $suff) = $self->fix_basename($f, $dirname, $suff, $url, $suggested, $type, $enc) |
|
250
|
0 |
31 |
unless defined $f |
|
266
|
0 |
0 |
unless defined $ct |
|
270
|
0 |
0 |
if ($cd and $cd =~ /\bfilename\s*=\s*(\S+)/) |
|
274
|
0 |
0 |
if $$self{'suggested_only_basename'} |
|
297
|
39 |
0 |
unless ref $url |
|
299
|
10 |
29 |
if (defined $url->frag) |
|
303
|
0 |
39 |
if (defined $url->equery and $self->url_takes_query($url, $type, $enc)) |
|
304
|
0 |
0 |
unless $cpy |
|
325
|
8 |
31 |
if defined $f |
|
328
|
0 |
31 |
if $$self{'only_known'} and keys %{$$self{'known_names'};} |
|
349
|
4 |
27 |
if (defined $suggested) { } |
|
350
|
1 |
3 |
if ($$self{'suggested_only_basename'} and $$self{'hierarchical'}) |
|
352
|
0 |
1 |
if $$self{'suggested_basename'} |
|
357
|
7 |
20 |
$$self{'use_query'} ? : |
|
376
|
31 |
0 |
if $$self{'fix_url_backslashes'} |
|
380
|
31 |
0 |
if $$self{'protect_pref'} ne '%' |
|
397
|
24 |
7 |
unless defined $q |
|
401
|
7 |
0 |
if $$self{'protect_pref'} ne '%' |
|
431
|
25 |
6 |
$$self{'hierarchical'} && $1 ? : |
|
434
|
7 |
24 |
if (defined $q) { } |
|
436
|
6 |
1 |
if ($$self{'dir_query'}) |
|
445
|
9 |
22 |
if ($$self{'site_dir'}) { } |
|
450
|
9 |
0 |
if $port == $def |
|
451
|
0 |
9 |
if length $port |
|
488
|
12 |
16 |
if $$self{'mkpath'} and length $dirname and not -d $dirname |
|
583
|
31 |
0 |
unless defined $enc |
|
584
|
0 |
31 |
unless ref $enc |
|
585
|
13 |
18 |
if (not defined $type) { } |
|
|
0 |
18 |
elsif (exists $$self{'type_suff'}{lc $type}) { } |
|
|
0 |
18 |
elsif (exists $$self{'type_suff_no_enc'}{lc $type}) { } |
|
|
18 |
0 |
elsif ($$self{'keepsuff_same_mediatype'}) { } |
|
593
|
18 |
0 |
unless defined $t and lc $t eq lc $type and lc "@enc" eq lc "@$enc" |
|
599
|
16 |
2 |
length $suff ? : |
|
|
13 |
18 |
if (not $guess_suffix) { } |
|
|
0 |
18 |
elsif (exists $$self{'type_suff_fallback'}{lc $type}) { } |
|
|
0 |
18 |
elsif (exists $$self{'type_suff_fallback_no_enc'}{lc $type}) { } |
|
|
0 |
18 |
elsif (length $suff ? $$self{'keep_suff'}{lc $type} : $$self{'keep_nosuff'}{lc $type}) { } |
|
610
|
18 |
0 |
if (defined $s and length $s) |
|
616
|
18 |
13 |
if ($check_enc) |
|
618
|
0 |
0 |
if exists $suffixDecoding{$e} |
|
639
|
0 |
31 |
unless length $f |
|
641
|
2 |
29 |
if $$self{'8+3'} |
|
661
|
1 |
30 |
if $$self{'ignore_existing_files'} |
|
664
|
2 |
28 |
if $$self{'8+3'} |
|
667
|
4 |
28 |
if ($max_length and length "$f$extra$suff" > $max_length and length "$extra$suff" < $max_length) |
|
673
|
30 |
2 |
unless -e $file |
|
675
|
2 |
0 |
unless $extra |
|
691
|
3 |
28 |
unless $$self{'cache_name'} |
|
718
|
151 |
9 |
unless ($$self{'keep_space'}) |
|
724
|
160 |
0 |
unless $$self{'keep_dots'} |
|
725
|
9 |
151 |
if $$self{'tolower'} |
|
727
|
18 |
142 |
if $$self{'max_length'} and length $f > $$self{'max_length'} |
|
729
|
18 |
142 |
if $$self{'8+3'} |
|
747
|
18 |
2 |
unless defined $suff |
|
749
|
3 |
17 |
if not length $suff and $f =~ s/(.{8,})\.(.*)$/$1/s |
|
754
|
6 |
14 |
if (not length $suff and length $f > 8) |
|
756
|
6 |
0 |
if $l > 3 |
|
763
|
19 |
1 |
unless defined $s |
|
765
|
13 |
7 |
if length $f > 8 |
|
766
|
4 |
16 |
if length $s > 3 |
|
767
|
14 |
6 |
if length $s |
|
786
|
0 |
39 |
if $type and $$self{'queryless_types'}{$type} |
|
789
|
29 |
10 |
if $ext |