blib/lib/PostScript/File.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 76 | 116 | 65.5 |
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 | 92 | 5 | 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 |
2002 | 29 | 0 | 24 | ref $o and $$o{'auto_hyphen'} |
29 | 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() || \&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 |
1607 | 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] |