| line |
true |
false |
branch |
|
107
|
0 |
1 |
if @_ > 1 |
|
124
|
1 |
1 |
unless (open $fh, '<', $file) |
|
129
|
1 |
0 |
unless $self->accumulate |
|
136
|
6 |
9 |
if $self->_is_blank(\$_) |
|
139
|
10 |
32 |
if $self->$type(\$_) and $self->add_to_documentation |
|
142
|
2 |
3 |
if $self->_is_comment(\$_) |
|
143
|
1 |
4 |
if $self->_is_code(\$_) |
|
159
|
36 |
6 |
unless defined $_[0]{$_} |
|
196
|
10 |
10 |
if $_[0]->_in_pod |
|
197
|
8 |
2 |
unless ${$_[1];} =~ /^=\w+/ |
|
205
|
6 |
11 |
unless $_[0]->_in_pod |
|
206
|
9 |
2 |
unless ${$_[1];} =~ /^=cut$/ |
|
214
|
12 |
14 |
unless $_[0]->_in_pod |
|
244
|
2 |
10 |
if grep {$self->$_;} '_is_blank', '_in_pod' |
|
249
|
5 |
5 |
unless length $copy |
|
277
|
4 |
16 |
if $_[0]->_in_pod |
|
278
|
7 |
9 |
unless ${$_[1];} =~ /#/ |
|
304
|
12 |
24 |
unless defined $_[1] |
|
305
|
13 |
11 |
unless ${$_[1];} =~ /^\s*$/ |