Branch Coverage

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)