our
$VERSION
= 0.001_000;
our
hashref
$properties
= {
preschool
=>
my
string
$TYPED_preschool
=
'Busy Beaver'
};
sub
building_blocks {
{
my
RPerl::Test::Subclass::MySubclasserA_Bad_00::methodd
$RETURN_TYPE
};
(
my
RPerl::Test::Subclass::MySubclasserA_Bad_00
$self
) =
@ARG
;
$self
->{preschool} .=
'; ABCDEFG'
;
my
RPerl::Test::Subclass::MySubclasserA_Bad_00
$chum
= RPerl::Test::Subclass::MySubclasserA_Bad_00->new();
return
$chum
;
}
sub
finger_paints {
{
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_arrayref::method
$RETURN_TYPE
};
(
my
RPerl::Test::Subclass::MySubclasserA_Bad_00
$self
) =
@ARG
;
$self
->{preschool} .=
'; orange yellow red'
;
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_arrayref
$friends
= [ RPerl::Test::Subclass::MySubclasserA_Bad_00->new(), RPerl::Test::Subclass::MySubclasserA_Bad_00->new(),
RPerl::Test::Subclass::MySubclasserA_Bad_00->new() ];
return
$friends
;
}
sub
sand_box {
{
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_hashref::method
$RETURN_TYPE
};
(
my
RPerl::Test::Subclass::MySubclasserA_Bad_00
$self
) =
@ARG
;
$self
->{preschool} .=
'; castle'
;
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_hashref
$classmates
= {
'alvin'
=> RPerl::Test::Subclass::MySubclasserA_Bad_00->new(),
'simon'
=> RPerl::Test::Subclass::MySubclasserA_Bad_00->new(),
'theodore'
=> RPerl::Test::Subclass::MySubclasserA_Bad_00->new()
};
return
$classmates
;
}
sub
swings {
{
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_arrayref
$RETURN_TYPE
};
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_arrayref
$others
= [ RPerl::Test::Subclass::MySubclasserA_Bad_00->new(), RPerl::Test::Subclass::MySubclasserA_Bad_00->new() ];
return
$others
;
}
sub
tinker_toys {
{
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_hashref
$RETURN_TYPE
};
my
RPerl::Test::Subclass::MySubclasserA_Bad_00_hashref
$peers
= {
'chip'
=> RPerl::Test::Subclass::MySubclasserA_Bad_00->new(),
'dale'
=> RPerl::Test::Subclass::MySubclasserA_Bad_00->new()
};
return
$peers
;
}
1;