package URT::34Subclass;
use strict;
use warnings;
## dont "use URT::34Baseclass";
use URT;
class URT::34Subclass {
isa => 'URT::34Baseclass',
is_transactional => 0,
has => [
some_other_stuff => { is => 'SCALAR' },
abcdefg => { }
]
};
sub create {
my $class = shift;
my $self = $class->SUPER::create(
thingy => URT::Thingy->create
);
return $self;
}
1;