line |
true |
false |
branch |
47
|
0 |
21 |
unless my $behavior = $BEHAVIORS{$behavior_name}
|
59
|
0 |
21 |
unless defined $specification
|
66
|
0 |
21 |
if (not $specification_type) { }
|
71
|
0 |
21 |
unless $specification_type eq 'HASH'
|
79
|
0 |
21 |
unless defined $specification->{'name'}
|
99
|
21 |
0 |
if ($behavior_name) { }
|
147
|
0 |
17 |
unless defined $new_value
|
157
|
0 |
0 |
if ($description) { }
|
158
|
0 |
0 |
if ($Perl::ToPerl6::TransformerParameter::PERIOD ne substr($description, length($description) - 1))
|
179
|
6 |
11 |
unless defined $new_value
|
210
|
17 |
17 |
unless defined $new_value
|
224
|
56 |
0 |
if ($parser)
|
246
|
0 |
0 |
unless ($description)
|
250
|
0 |
0 |
if ($prefix)
|