| line |
true |
false |
branch |
|
10
|
2 |
0 |
@_ > 1 ? : |
|
|
2 |
2 |
@_ ? : |
|
25
|
0 |
2 |
$abbr ? : |
|
35
|
1 |
7 |
if (ref $self->pod eq "HASH") |
|
44
|
0 |
7 |
if $last_identifier =~ /item|over/ |
|
47
|
5 |
2 |
unless $last_identifier =~ /none|cut/ |
|
59
|
24 |
14 |
if (defined $content and ($identifier || 'p') ne 'v' and $self->{'width'}) { } |
|
|
5 |
9 |
elsif ($has_ident and $identifier eq 'v') { } |
|
66
|
21 |
517 |
if $i == 0 and $chars[$i] =~ /\n/ |
|
71
|
537 |
1 |
if ($length + $i <= $self->{'width'}) { } |
|
73
|
0 |
1 |
if $string =~ s/\s$//i |
|
82
|
31 |
7 |
if ($has_ident) |
|
83
|
10 |
21 |
if ($identifier eq 'item') { } |
|
84
|
4 |
6 |
unless (_last_identifier($self) =~ /item|over/) |
|
91
|
4 |
17 |
if ($last_identifier =~ /item|over/) |
|
96
|
18 |
3 |
unless $last_identifier =~ /cut/ |
|
101
|
31 |
7 |
defined $identifier ? : |
|
|
31 |
7 |
defined $title ? : |
|
|
29 |
9 |
defined $content ? : |
|
251
|
0 |
2 |
defined $content ? : |
|
|
0 |
2 |
$self->{'bugs_cb'} ? : |
|
275
|
0 |
2 |
defined $content ? : |
|
|
0 |
2 |
$self->{'support_cb'} ? : |
|
292
|
0 |
2 |
scalar @items ? : |
|
|
0 |
2 |
$self->{'support_items_cb'} ? : |
|
332
|
0 |
2 |
defined $license ? : |
|
|
0 |
2 |
$self->{'license_cb'} ? : |
|
348
|
147 |
19 |
if $section->{'identifier'} |
|
349
|
76 |
90 |
if $section->{'title'} |
|
350
|
68 |
98 |
if $section->{'content'} |
|
356
|
0 |
5 |
unless $string |
|
363
|
0 |
1 |
unless $string |
|
368
|
0 |
1 |
unless open my $fh, "<", $file |
|
371
|
0 |
1 |
unless $current =~ s/(\_\_END\_\_).*/$1/gmsx |
|
381
|
0 |
1 |
unless $string |
|
401
|
38 |
7 |
$self->{'pod'}[$i]{'identifier'} ? : |
|
|
45 |
0 |
$self->{'pod'}[$i] ? : |