| 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] |