Condition Coverage

blib/lib/PostScript/File.pm
Criterion Covered Total %
condition 74 116 63.7


and 3 conditions

line !l l&&!r l&&r condition
592 102 2 0 defined $o->{'debug'} and not $o->{'debug'}
626 0 100 4 not defined $title and defined $filename
635 7 90 7 not $o->{'eps'} and $o->{'pagecount'} > 1
636 7 97 0 not $o->{'eps'} and $o->{'order'}
686 90 91 12 length $list[-1] and length($resource) + length($list[-1]) >= $maxLen
720 48 24 32 @_ > 1 and not $fh
900 40 0 17 $o->{'encoding'} && $translate
910 72 0 4 defined $filename && length $filename
938 42 0 2 not $height and $paper =~ /^(\d+(?:\.\d+)?)\s*x\s*(\d+(?:\.\d+)?)$/i
970 43 0 1 defined $width and $width + 0
990 43 0 1 defined $height and $height + 0
1145 618 57 9 $encoding and &Encode::is_utf8($_[0])
1169 0 4 80 $encoding and not &Encode::is_utf8($_[0])
1216 0 0 0 $o->{'reencode'} and $font =~ s/\Q$o->{'font_suffix'}\E$//
1630 0 4 0 defined $params and length $params
1651 0 0 6 defined $name and defined $entry
1826 0 0 0 $ord == $o->{'p'} and $page ne $o->{'page'}[$ord]
1922 0 0 8 defined $filename && length $filename
2003 29 24 0 ref $o and $o->{'auto_hyphen'}
0 13 11 ref $o and $o->{'auto_hyphen'} and $string =~ /-/

or 2 conditions

line l !l condition
328 3 3 $o->{'needed'}{'font'} ||= {map({$_, 1;} @fonts)}
345 3 0 getlogin || (getpwuid $<)[0] || 'Unknown'
935 34 10 shift() || 'A4'
936 42 2 $size{lc $paper} || ''
1220 0 0 $o->{'encoding'}->name || 'iso-8859-1'
1359 1 43 shift() || 1
1371 1 43 shift() || \&PostScript::File::incpage_label
1401 0 0 $o->{'langlevel'} || 0
1506 120 0 $o->{'page'}[$i] || ''
1654 2 0 $version || 0
0 2 $revision || 0
1775 45 36 $o->{'needed'}{$type} ||= {}
1823 27 0 shift() || ''

or 3 conditions

line l !l&&r !l&&!r condition
611 10 6 88 $landscapefn or $clipfn
16 64 24 $landscapefn or $clipfn or $errorfn
70 0 24 $landscapefn or $clipfn or $errorfn or $debugfn
769 2 1 4 $fh || $epsfile
820 22 3 72 $fh || $psfile
1300 0 61 33268 /\G<~[^~]*~>/cg or /\G\( (?: [^\\)]+ | \\. )* \)/cgsx
1608 0 4 0 defined $suptype or $add_resource_accepts{lc $type}
1686 1 2 0 $o->{'use_functions'} ||= do { require PostScript::File::Functions; 'PostScript::File::Functions'->new }
1814 0 2 0 shift() || $o->get_page_label
1965 0 0 0 $ENV{'HOME'} || $ENV{'LOGDIR'} || (getpwuid $>)[7]