| blib/lib/WWW/UsePerl/Journal/Comment.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 30 | 73.3 |
| line | true | false | branch |
|---|---|---|---|
| 91 | 1 | 36 | unless exists $opts{$_} |
| 94 | 1 | 8 | unless $opts{'j'}->isa('WWW::UsePerl::Journal') |
| 160 | 3 | 5 | if ($$self{'j'}->debug) |
| 164 | 1 | 7 | unless $content |
| 185 | 3 | 4 | if ($$self{'j'}->debug) |
| 186 | 2 | 19 | unless $_ |
| 189 | 1 | 6 | unless @fields |
| 191 | 2 | 4 | if ($fields[5]) |
| 193 | 0 | 2 | unless ($day) |
| 197 | 0 | 0 | unless $year |
| 198 | 0 | 0 | if $amp eq 'PM' |
| 199 | 0 | 0 | if $hr == 24 |
| 202 | 1 | 1 | if ($$self{'j'}->debug) |
| 214 | 1 | 1 | if ($$self{'j'}->debug) |
| 225 | 0 | 6 | unless $$self{'content'} |