| line |
true |
false |
branch |
|
72
|
0 |
20 |
if @cmd and $cmd[0] eq '*' |
|
76
|
1 |
0 |
if (exists ${ref($self) . '::';}{$_ . '::'}) |
|
82
|
1 |
19 |
$subcmd ? : |
|
94
|
6 |
0 |
if (my $subcmd = $self->cascadable) { } |
|
118
|
12 |
14 |
if ($ARGV[0] and ucfirst $ARGV[0] eq $_ and exists ${$class . '::';}{$_ . '::'}) |
|
137
|
44 |
26 |
if (@_) |
|
154
|
0 |
6 |
unless open my $podfh, '<', $file || $self->filename |
|
159
|
4 |
2 |
if ($buf =~ /^=head1\s+NAME\s*\Q$base\E::(\w+)( - .+)$/m) { } |
|
190
|
2 |
1 |
unless $want_detail |
|
207
|
1 |
10 |
if (my(@lines) = $line =~ /^( {4}\s+.+\s*)$/gm) { } |
|
|
2 |
8 |
elsif ($line =~ /^(\s+)(\w+ - .*)$/) { } |
|
|
5 |
3 |
elsif (length $line) { } |
|
209
|
0 |
1 |
unless $chunk =~ /^(\s*)(.+?)( *)(: .+?)?(\s*)$/ |
|
212
|
0 |
1 |
if $spaces |