| lib/App/Perl/Tags.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 16 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 42 | 0 | 0 | if (defined $options{'files'}) { } |
| 48 | 0 | 0 | unless @ARGV |
| 60 | 1 | 1 | unless $options{'prune'} |
| 1 | 1 | unless @{[] unless $options{'prune'};} | |
| 83 | 0 | 0 | if ($$self{'ppi'}) |
| 91 | 0 | 0 | if (defined $$self{'files'}) { } |
| 92 | 0 | 0 | if ('-' eq $$self{'files'}) { } |
| 95 | 0 | 0 | unless my $fh = 'IO::File'->new($$self{'files'}) |