| 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}) { } |