| /usr/local/bin/pod2text | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 28 | 39.2 |
| line | true | false | branch |
|---|---|---|---|
| 2 | 0 | 1 | if $running_under_some_shell |
| 31 | 0 | 1 | if $ARGV[$i] =~ /^--$/ |
| 32 | 0 | 1 | if ($ARGV[$i] =~ /^-(\d+)$/) |
| 41 | 0 | 1 | $_ eq '-' && !$stdin++ ? : |
| 48 | 0 | 1 | unless &GetOptions(\%options, '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') |
| 53 | 0 | 1 | if $options{'help'} |
| 57 | 0 | 1 | if ($options{'color'}) { } |
| 0 | 1 | elsif ($options{'termcap'}) { } | |
| 0 | 1 | elsif ($options{'overstrike'}) { } | |
| 60 | 0 | 0 | if ($@) |
| 72 | 1 | 0 | unless (defined $options{'stderr'} or defined $options{'errors'}) |
| 82 | 0 | 1 | if ($parser->{'CONTENTLESS'}) |
| 85 | 0 | 0 | if (defined $output and $output ne '-') |
| 86 | 0 | 0 | unless -s $output |