| line | % | coverage | branch |
|---|
| 119 | 100 | T | F | unless defined $args{'file'} |
| 120 | 100 | T | F | unless -f $args{'file'} |
| 284 | 100 | T | F | if ($line =~ /^=head\d+\s+(.+)/u) |
| 291 | 100 | T | F | unless $line =~ /$VERBATIM_RE/u |
| 292 | 100 | T | F | unless $line =~ /$ANNOTATION_RE/u |
| 304 | 100 | T | F | unless length $code_only |
| 339 | 100 | T | F | if ($line =~ /$VERBATIM_RE/u or $line =~ /\S/u and @current) { } |
| 342 | 100 | T | F | if (@current) |
| 344 | 100 | T | F | if length $code and _looks_like_perl($code) |
| 355 | 100 | T | F | if (@current) |
| 357 | 100 | T | F | if length $code and _looks_like_perl($code) |
| 383 | 50 | T | F | unless @non_empty |
| 385 | 50 | T | F | /^([ \t]*)/u ? : |
| 407 | 50 | T | F | unless $line =~ /\S/u |
| 408 | 100 | T | F | if $line =~ /^\s*#/u |
| 410 | 100 | T | F | if $line =~ /[\$\@\%]/u |
| 412 | 100 | T | F | if $line =~ /^\s*(?:my|our|local|use|require|no|package|sub|for(?:each)?|if|unless|while|until|return|die|croak|warn|print|say|eval|BEGIN|END|push|pop|shift|unshift|keys|values|grep|map|sort)\b/u |
| 414 | 100 | T | F | if $line =~ /(?:->|::)/u |
| 416 | 50 | T | F | if $line =~ /=>/u |