| line |
true |
false |
branch |
|
45
|
0 |
1 |
unless my $behavior = $BEHAVIORS{$behavior_name}
|
|
57
|
0 |
1 |
unless defined $specification
|
|
64
|
0 |
1 |
if (not $specification_type) { }
|
|
69
|
0 |
1 |
unless $specification_type eq 'HASH'
|
|
77
|
0 |
1 |
unless defined $specification->{'name'}
|
|
97
|
1 |
0 |
if ($behavior_name) { }
|
|
145
|
0 |
1 |
unless defined $new_value
|
|
155
|
0 |
0 |
if ($description) { }
|
|
156
|
0 |
0 |
if ($Perl::ToPerl6::TransformerParameter::PERIOD ne substr($description, length($description) - 1))
|
|
177
|
0 |
1 |
unless defined $new_value
|
|
208
|
1 |
1 |
unless defined $new_value
|
|
222
|
1 |
0 |
if ($parser)
|
|
244
|
0 |
0 |
unless ($description)
|
|
248
|
0 |
0 |
if ($prefix)
|