| line | % | coverage | branch |
|---|
| 53 | 100 | T | F | if ($file_str =~ /=variables\s*?\n
(.*?)
\s*\n
=general\s*?\n
(.*?)
\s*\n
=steps\s*?\n
(.*?)
\s*\n
=cut
/sx) { } |
| 82 | 100 | T | F | unless $v =~ /^(\w+)=([^=]+)$/ |
| 93 | 100 | T | F | unless $g =~ /^
([-\w]+)
(?:=(
\S+ # Usual case: regular identifier; no spaces allowed in identifier
|
\$\S+ # Variable substitution; no spaces allowed in identifier
)
)?
$/x or $g =~ /^([-\w]+)="([^"]+)"$/ |
| 105 | 100 | T | F | if ($2) { } |
| 107 | 100 | T | F | if ($prov =~ /^\$(.+)/) { } |
| 109 | 100 | T | F | if ($$substitutions{$var}) { } |
| 124 | 100 | T | F | if (not $$optsref{$k}) { } |
| 139 | 100 | T | F | unless $line =~ /^(\w+::\w+)(?:\s+([-=\w]+\s+)*([-=\w]+))?$/ |
| 142 | 100 | T | F | unless $3 |
| 143 | 100 | T | F | $2 ? : |
| 147 | 100 | T | F | unless ($$optsref{$key}) |
| 152 | 100 | T | F | if $key eq 'verbose-step' |
| 153 | 100 | T | F | if $key eq 'fatal-step' |
| 154 | 100 | T | F | unless defined $value |