| blib/lib/Perl/Tags.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 22 | 72.7 |
| line | true | false | branch |
|---|---|---|---|
| 151 | 0 | 31 | unless my $tags = $$self{'tags'} |
| 188 | 0 | 1 | unless my $tags = $$self{'tags'} |
| 208 | 1 | 4 | unless my $outfile = $options{'outfile'} |
| 210 | 1 | 3 | unless $$self{'is_dirty'} or not -e $outfile |
| 212 | 0 | 3 | unless open my $OUT, '>', $outfile |
| 215 | 0 | 3 | unless close $OUT |
| 238 | 9 | 0 | ref $files ? : |
| 259 | 13 | 24 | unless $$_{'level'} > $$self{'max_level'} |
| 289 | 1 | 12 | if ($$self{'seen'}{$file}++) |
| 290 | 0 | 1 | unless $options{'refresh'} |
| 341 | 40 | 41 | unless $tag->on_register($self) |