| /usr/local/bin/pod2text | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 28 | 39.2 |
| line | true | false | branch |
|---|---|---|---|
| 5 | 0 | 1 | if $running_under_some_shell |
| 34 | 0 | 1 | if $ARGV[$i] =~ /^--$/ |
| 35 | 0 | 1 | if ($ARGV[$i] =~ /^-(\d+)$/) |
| 44 | 0 | 1 | $_ eq '-' && !$stdin++ ? : |
| 51 | 0 | 1 | unless GetOptions \, 'alt|a', 'code', 'color|c', 'errors=s', 'help|h', 'indent|i=i', 'loose|l', 'margin|left-margin|m=i', 'nourls', 'overstrike|o', 'quotes|q=s', 'sentence|s', 'stderr', 'termcap|t', 'utf8|u', 'width|w=i' |
| 56 | 0 | 1 | if $options{'help'} |
| 60 | 0 | 1 | if ($options{'color'}) { } |
| 0 | 1 | elsif ($options{'termcap'}) { } | |
| 0 | 1 | elsif ($options{'overstrike'}) { } | |
| 63 | 0 | 0 | if ($@) |
| 75 | 1 | 0 | unless (defined $options{'stderr'} or defined $options{'errors'}) |
| 85 | 0 | 1 | if ($$parser{'CONTENTLESS'}) |
| 88 | 0 | 0 | if (defined $output and $output ne '-') |
| 89 | 0 | 0 | unless -s $output |