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