| blib/lib/JSON/WithComments.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 61 | 0 | 0 | if ($imports[$idx] eq '-default_comment_style') |
| 67 | 0 | 2 | if (defined $index) |
| 69 | 0 | 0 | unless ($PATTERNS{$style}) |
| 88 | 4 | 0 | if (defined $value) |
| 89 | 2 | 2 | if ($value eq 'perl') { } |
| 2 | 0 | elsif ($PATTERNS{$value}) { } | |
| 113 | 2 | 2 | if ((my $style = $self->get_comment_style) ne 'perl') |