| blib/lib/WWW/UsePerl/Journal/Thread.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 24 | 91.6 |
| line | true | false | branch |
|---|---|---|---|
| 119 | 1 | 6 | unless exists $opts{$_} |
| 122 | 1 | 2 | unless $opts{'j'}->isa('WWW::UsePerl::Journal') |
| 143 | 1 | 1 | unless $$self{'thread'} |
| 176 | 1 | 4 | if %hash and $hash{'descending'} |
| 177 | 1 | 4 | if %hash and $hash{'threaded'} |
| 197 | 5 | 2 | if $$self{'_commenthash'} |
| 208 | 0 | 2 | if $@ or not $content |
| 210 | 1 | 1 | if ($$self{'j'}->debug) |
| 218 | 1 | 1 | if ($$self{'j'}->debug) |
| 226 | 3 | 3 | if ($$self{'j'}->debug) |
| 230 | 0 | 6 | if $comments{$cid} |
| 233 | 3 | 3 | if ($$self{'j'}->debug) |