Condition Coverage

blib/lib/Net/ChooseFName.pm
Criterion Covered Total %
condition 35 59 59.3


and 3 conditions

line !l l&&!r l&&r condition
268 0 0 0 $$self{'suggest_disposition'} && $res->header('Content-Disposition')
270 0 0 0 $cd and $cd =~ /\bfilename\s*=\s*(\S+)/
303 0 39 0 defined $url->equery and $self->url_takes_query($url, $type, $enc)
328 31 0 0 $$self{'only_known'} and keys %{$$self{'known_names'};}
350 1 2 1 $$self{'suggested_only_basename'} and $$self{'hierarchical'}
431 5 26 0 $$self{'hierarchical'} && $1
488 3 0 28 $$self{'mkpath'} and length $dirname
3 16 12 $$self{'mkpath'} and length $dirname and not -d $dirname
593 0 18 0 defined $t and lc $t eq lc $type
18 0 0 defined $t and lc $t eq lc $type and lc "@enc" eq lc "@$enc"
610 0 0 18 defined $s and length $s
667 0 28 4 $max_length and length "$f$extra$suff" > $max_length
28 0 4 $max_length and length "$f$extra$suff" > $max_length and length "$extra$suff" < $max_length
727 0 142 18 $$self{'max_length'} and length $f > $$self{'max_length'}
749 5 12 3 not length $suff and $f =~ s/(.{8,})\.(.*)$/$1/s
752 14 6 2 length $f <= 6 and $suff =~ s/^(\..*?)(?=\...)//s
754 8 6 6 not length $suff and length $f > 8
786 21 18 0 $type and $$self{'queryless_types'}{$type}
788 0 10 29 @p && $p[-1] =~ /.*\.(.*)$/

or 2 conditions

line l !l condition
190 0 21 $$self{'type_suff'} ||= {}