| line |
true |
false |
branch |
|
108
|
0 |
1 |
if @_ > 1 |
|
125
|
1 |
1 |
unless (open $fh, '<', $file) |
|
130
|
1 |
0 |
unless $self->accumulate |
|
137
|
6 |
9 |
if $self->_is_blank(\$_) |
|
140
|
10 |
32 |
if $self->$type(\$_) and $self->add_to_documentation |
|
143
|
2 |
3 |
if $self->_is_comment(\$_) |
|
144
|
1 |
4 |
if $self->_is_code(\$_) |
|
160
|
36 |
6 |
unless defined $_[0]{$_} |
|
197
|
10 |
10 |
if $_[0]->_in_pod |
|
198
|
8 |
2 |
unless ${$_[1];} =~ /^=\w+/ |
|
206
|
6 |
11 |
unless $_[0]->_in_pod |
|
207
|
9 |
2 |
unless ${$_[1];} =~ /^=cut$/ |
|
215
|
12 |
14 |
unless $_[0]->_in_pod |
|
245
|
2 |
10 |
if grep {$self->$_;} '_is_blank', '_in_pod' |
|
250
|
5 |
5 |
unless length $copy |
|
278
|
4 |
16 |
if $_[0]->_in_pod |
|
279
|
7 |
9 |
unless ${$_[1];} =~ /#/ |
|
305
|
12 |
24 |
unless defined $_[1] |
|
306
|
13 |
11 |
unless ${$_[1];} =~ /^\s*$/ |