| blib/lib/Pod/Perldoc/ToPod.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 12 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 0 | unless open IN, '<', $in |
| 25 | 0 | 0 | if (/^=(\w+)/s) |
| 26 | 0 | 0 | if ($cut_mode = $1 eq 'cut') |
| 32 | 0 | 0 | if $cut_mode |
| 33 | 0 | 0 | unless print $outfh $_ |
| 36 | 0 | 0 | unless close IN |