| line |
true |
false |
branch |
|
86
|
4 |
11 |
if $self->Debug
|
|
88
|
0 |
15 |
if ($@) { }
|
|
109
|
0 |
10 |
unless ($file)
|
|
130
|
7 |
13 |
if $self->_include_is_compiled($subid)
|
|
133
|
0 |
13 |
unless $parsed_object
|
|
141
|
12 |
1 |
if ($parsed_object->{'is_perl'} and my $code = $self->compile($c, $parsed_object->{'data'}, $subid)) { }
|
|
|
1 |
0 |
elsif ($parsed_object->{'is_raw'}) { }
|
|
154
|
13 |
0 |
if $subid and not $self->_parse_for_subs($parsed_object->{'data'})
|
|
174
|
0 |
0 |
unless ($self->_include_is_registered($include))
|
|
177
|
0 |
0 |
if $@
|
|
186
|
18 |
0 |
if (my $code = \&{$subid;})
|