line |
true |
false |
branch |
95
|
3 |
1 |
unless (ref $class) |
147
|
0 |
8 |
unless $ttref = $$self{-'root'}{$tagtype} |
149
|
6 |
2 |
if $compiletimecode |
150
|
2 |
6 |
if $initcode |
151
|
0 |
8 |
if $termcode |
152
|
2 |
6 |
if ($procinfo) |
194
|
0 |
62 |
if ($name =~ /^(\+|\-)\s*(.*?)$/) |
199
|
0 |
62 |
if $op eq '+' |
202
|
0 |
62 |
if ($op eq '-') |
204
|
0 |
0 |
/::/ ? : |
212
|
0 |
62 |
/::/ ? : |
216
|
62 |
0 |
if not $names{$_} and /^\s*([a-zA-Z_0-9:]+)\s*$/ |
224
|
0 |
62 |
unless $name |
225
|
59 |
3 |
if exists $Embperl::Syntax::Syntax{$name} |
230
|
0 |
3 |
if ($@) |
275
|
6 |
298 |
if ($$replace{$k}) { } |
281
|
82 |
216 |
if (ref $v eq 'HASH') { } |
|
6 |
210 |
elsif (ref $v eq 'ARRAY') { } |
283
|
0 |
82 |
if ($$seen{$v}) { } |