| line |
true |
false |
branch |
|
40
|
7 |
132 |
if $newval ne ($self->{'_cur_namespace'} || '')
|
|
55
|
1 |
130 |
if defined $self->optimize_var_access
|
|
65
|
1 |
6 |
if (defined $self->variables_via_namespace)
|
|
82
|
0 |
0 |
unless ref $_
|
|
100
|
0 |
131 |
unless my $wrapper_method = $self->can("_output_wrapper__" . $self->output_api)
|
|
106
|
131 |
0 |
if (defined($ret = $self->_clean_eval($code))) { }
|
|
107
|
0 |
131 |
if defined $subname
|
|
117
|
129 |
1 |
$self->_optimize_var_access ? :
|
|
139
|
0 |
0 |
$self->_optimize_var_access ? :
|
|
160
|
0 |
1 |
$self->_optimize_var_access ? :
|
|
174
|
188 |
301 |
if ($node->can('function_name')) { }
|
|
|
80 |
221 |
elsif ($node->can('symbol_name')) { }
|
|
|
56 |
165 |
elsif ($node->can('string_value')) { }
|
|
|
165 |
0 |
elsif ($node->can('number_value')) { }
|
|
182
|
0 |
80 |
defined $x ? :
|
|
197
|
0 |
70 |
unless my $info = $self->namespace->get_function($name)
|
|
200
|
19 |
51 |
if $info->{'perl_generator'}
|
|
204
|
0 |
51 |
unless $info->{'native'}
|
|
208
|
0 |
51 |
unless $fqn =~ /^[A-Za-z_][A-Za-z0-9_]*::([A-Za-z0-9_]+::)*\p{Word}+$/
|
|
219
|
78 |
2 |
$self->_optimize_var_access ? :
|
|
235
|
0 |
0 |
$string + 0 eq $string ? :
|