blib/lib/PostScript/File.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 74 | 116 | 63.7 |
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 =~ /-/ |
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() || '' |
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] |