| line |
true |
false |
branch |
|
101
|
89 |
0 |
unless $config_string
|
|
102
|
0 |
0 |
if $config_string =~ / \A \s* \z /msx
|
|
121
|
0 |
0 |
if ($variable_specifications)
|
|
136
|
89 |
0 |
unless $config_string
|
|
137
|
0 |
0 |
if $config_string =~ / \A \s* \z /msx
|
|
139
|
0 |
0 |
unless open my $handle, "<", $config_string
|
|
149
|
0 |
0 |
unless close $handle
|
|
161
|
0 |
0 |
unless $line
|
|
163
|
0 |
0 |
if (my($variable, $regex_string, $description) = $line =~ / $VARIABLES_FILE_LINE_REGEX /msx) { }
|
|
191
|
0 |
0 |
if (my $regex_string = $arguments{'regex_string'}) { }
|
|
201
|
0 |
0 |
unless eval {
|
|
235
|
0 |
0 |
unless $elem
|
|
237
|
0 |
0 |
unless my(@names) = $self->_compute_symbol_names($elem)
|
|
247
|
0 |
0 |
if exists $evil_variables->{$variable}
|
|
254
|
0 |
0 |
if $variable =~ /$regex->[$INDEX_REGEX]/
|
|
279
|
0 |
0 |
if ($SUBSCRIPTED_TYPE{$elem->symbol_type})
|
|
287
|
0 |
0 |
if (@subscr)
|