$self->ObjectCount( $self->ObjectCount() + 1 );
}
- sub _BuildIt {42}
+ sub _BuildIt { 42 }
sub _CallTrigger {
push @{ $_[0]->TriggerRecord() }, [@_];
'ClassWithRoleHCA (immutable) does RoleHCA'
);
-
# These next tests are aimed at testing to-role application followed by
# to-class application
{
$self->ObjectCount( $self->ObjectCount() + 1 );
}
- sub _BuildIt {42}
+ sub _BuildIt { 42 }
sub _CallTrigger {
push @{ $_[0]->TriggerRecord() }, [@_];
default => 5,
);
- sub _BuildIt {42}
+ sub _BuildIt { 42 }
sub _CallTrigger {
push @{ $_[0]->TriggerRecord() }, [@_];