| line |
true |
false |
branch |
|
109
|
0 |
1 |
if @_ > 1 |
|
126
|
1 |
1 |
unless (open $fh, '<', $file) |
|
131
|
1 |
0 |
unless $self->accumulate |
|
138
|
6 |
9 |
if $self->_is_blank(\$_) |
|
141
|
10 |
32 |
if $self->$type(\$_) and $self->add_to_documentation |
|
144
|
2 |
3 |
if $self->_is_comment(\$_) |
|
145
|
1 |
4 |
if $self->_is_code(\$_) |
|
161
|
36 |
6 |
unless defined $_[0]{$_} |
|
198
|
10 |
10 |
if $_[0]->_in_pod |
|
199
|
8 |
2 |
unless ${$_[1];} =~ /^=\w+/ |
|
207
|
6 |
11 |
unless $_[0]->_in_pod |
|
208
|
9 |
2 |
unless ${$_[1];} =~ /^=cut$/ |
|
216
|
12 |
14 |
unless $_[0]->_in_pod |
|
246
|
2 |
10 |
if grep {$self->$_;} '_is_blank', '_in_pod' |
|
251
|
5 |
5 |
unless length $copy |
|
279
|
4 |
16 |
if $_[0]->_in_pod |
|
280
|
7 |
9 |
unless ${$_[1];} =~ /#/ |
|
306
|
12 |
24 |
unless defined $_[1] |
|
307
|
13 |
11 |
unless ${$_[1];} =~ /^\s*$/ |