| blib/lib/File/Comments/Plugin/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 2 | 5 | unless $cold_call |
| 27 | 3 | 2 | if $$target{'content'} =~ /^#!.*perl\b/ |
| 59 | 3 | 1 | if ($USE_PPI) { } |
| 63 | 2 | 1 | if defined $end |
| 80 | 1 | 0 | if ($USE_PPI) |
| 84 | 1 | 0 | if ($doc) { } |
| 110 | 0 | 3 | unless (defined $doc) |
| 120 | 16 | 14 | if ref $_[1] ne 'PPI::Token::Comment' and ref $_[1] ne 'PPI::Token::Pod' |
| 124 | 13 | 1 | if ref $_[1] eq 'PPI::Token::Comment' |