| blib/lib/App/PerlWatcher/Watcher.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 28 | 30 | 93.3 |
| line | true | false | branch |
|---|---|---|---|
| 100 | 65 | 710 | if $ref_type eq 'CODE' |
| 101 | 653 | 57 | if $ref_type ne 'HASH' |
| 125 | 13 | 0 | if (defined $value) |
| 127 | 7 | 6 | unless $value |
| 129 | 6 | 7 | if $value |
| 137 | 13 | 0 | if $self->active |
| 167 | 4 | 112 | $a =~ /$max_re/u ? : |
| 201 | 6 | 75 | $max_weight ? : |
| 228 | 20 | 21 | $result ? : |
| 237 | 5 | 36 | if ($result_changed) |
| 250 | 29 | 12 | defined $level_key ? : |
| 261 | 8 | 9 | $prev_status ? : |
| 277 | 15 | 2 | unless $old_items_fun and $new_items_fun |
| 284 | 3 | 9 | if ($$new_items[$i]->content eq $$old_items[$j]->content and not $copied{$j}) |
| 306 | 1 | 7 | unless ($w) |