| line |
true |
false |
branch |
| 59 |
0 |
5 |
if @cmd and $cmd[0] eq '*' |
| 62 |
1 |
0 |
if (exists ${ref($self) . '::';}{$_ . '::'}) |
| 71 |
0 |
5 |
unless ref $self |
| 72 |
5 |
0 |
if @_ |
| 85 |
0 |
0 |
unless open my $podfh, '<', $file || $self->filename |
| 89 |
0 |
0 |
if ($buf =~ /^=head1\s+NAME\s*\Q$base\E::(\w+ - .+)$/m) { } |
| 119 |
0 |
0 |
unless $want_detail |
| 136 |
0 |
0 |
if (my(@lines) = $line =~ /^( {4}\s+.+\s*)$/gm) { } |
| |
0 |
0 |
elsif ($line =~ /^(\s+)(\w+ - .*)$/) { } |
| |
0 |
0 |
elsif (length $line) { } |
| 138 |
0 |
0 |
unless $chunk =~ /^(\s*)(.+?)( *)(: .+?)?(\s*)$/ |
| 141 |
0 |
0 |
if $spaces |