| blib/lib/App/Perl/Module/Examples.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 10 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 2 | 3 | if (not &getopts("dh", $self->{'_opts'}) or $self->{'_opts'}{'h'} or @ARGV > 1) |
| 61 | 1 | 2 | if ($self->{'_opts'}{'d'}) |
| 82 | 1 | 4 | unless (defined $example_file) |
| 91 | 2 | 3 | unless (-r $examples_dir) |
| 110 | 2 | 3 | if ($example_sec =~ /^(.+?)(\d+)$/ms) |