| line |
true |
false |
branch |
|
40
|
6 |
132 |
if $newval ne ($self->{'_cur_namespace'} || '')
|
|
55
|
1 |
129 |
if defined $self->optimize_var_access
|
|
65
|
1 |
5 |
if ($self->variables_via_namespace)
|
|
82
|
0 |
0 |
unless ref $_
|
|
105
|
128 |
1 |
if ($self->output_api eq 'function_of_vars') { }
|
|
|
1 |
0 |
elsif ($self->output_api eq 'function_of_namespace') { }
|
|
106
|
127 |
1 |
if ($self->_optimize_var_access) { }
|
|
125
|
0 |
1 |
if $self->_optimize_var_access
|
|
137
|
129 |
0 |
if (defined($ret = $self->_clean_eval($code))) { }
|
|
138
|
0 |
129 |
if defined $subname
|
|
149
|
183 |
294 |
if ($node->can('function_name')) { }
|
|
|
76 |
218 |
elsif ($node->can('symbol_name')) { }
|
|
|
56 |
162 |
elsif ($node->can('string_value')) { }
|
|
|
162 |
0 |
elsif ($node->can('number_value')) { }
|
|
157
|
0 |
76 |
defined $x ? :
|
|
172
|
0 |
66 |
unless my $info = $self->namespace->get_function($name)
|
|
175
|
18 |
48 |
if $info->{'perl_generator'}
|
|
179
|
0 |
48 |
unless $info->{'native'}
|
|
183
|
0 |
48 |
unless $fqn =~ /^[A-Za-z_][A-Za-z0-9_]*::([A-Za-z0-9_]+::)*\p{Word}+$/
|
|
194
|
74 |
2 |
$self->_optimize_var_access ? :
|
|
210
|
0 |
0 |
$string + 0 eq $string ? :
|