| 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
|
26 |
14 |
if (defined $content and ($identifier || 'p') ne 'v' and $self->{'width'}) { } |
|
|
5 |
9 |
elsif ($has_ident and $identifier eq 'v') { } |
|
66
|
21 |
519 |
if $i == 0 and $chars[$i] =~ /\n/ |
|
71
|
539 |
1 |
$length + $i <= $self->{'width'} ? : |
|
73
|
0 |
1 |
if $string =~ s/\s$//i |
|
82
|
33 |
7 |
if ($has_ident) |
|
83
|
12 |
21 |
if ($identifier eq 'item') { } |
|
84
|
4 |
8 |
unless (_last_identifier($self) =~ /item|over/) |
|
91
|
4 |
17 |
if ($last_identifier =~ /item|over/) |
|
96
|
18 |
3 |
unless $last_identifier =~ /cut/ |
|
101
|
33 |
7 |
defined $identifier ? : |
|
|
33 |
7 |
defined $title ? : |
|
|
31 |
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'} ? : |
|
336
|
0 |
2 |
defined $license ? : |
|
|
0 |
2 |
$self->{'license_cb'} ? : |
|
352
|
150 |
19 |
if $section->{'identifier'} |
|
353
|
79 |
90 |
if $section->{'title'} |
|
354
|
71 |
98 |
if $section->{'content'} |
|
360
|
0 |
5 |
unless $string |
|
367
|
0 |
1 |
unless $string |
|
372
|
0 |
1 |
unless open my $fh, "<", $file |
|
375
|
0 |
1 |
unless $current =~ s/(\_\_END\_\_).*/$1/gmsx |
|
385
|
0 |
1 |
unless $string |
|
405
|
40 |
7 |
$self->{'pod'}[$i]{'identifier'} ? : |
|
|
47 |
0 |
$self->{'pod'}[$i] ? : |