Class-Std-0.013/t/simple.t

3 package MyBase;
10     my %def  : ATTR( :default<MyBase::def> :get<default>       );
16         ::is ref $arg_ref, 'HASH'  => 'Args passed to MyBase::BUILD in hash-ref';
17         ::is ident $self, $ident   => 'Identity correct in MyBase::BUILD';
20         ::is $priv{$ident}, 'MyBase::priv'  => 'MyBase priv arg unpacked correctly';
23         ::is $snum{$ident}, 'MyBase::snum!'  => 'MyBase snum arg unpacked correctly';
29         ::is ident $self, $ident   => 'Identity correct in MyBase::DEMOLISH'
36         ::is $name{$ident}, 'MyBase::name'    => 'MyBase::name initialized';
37         ::is $rank{$ident}, 'MyBase::rank'    => 'MyBase::rank initialized';
38         ::is $snum{$ident}, 'MyBase::snum!'   => 'MyBase::snum initialized';
39         ::is $priv{$ident}, 'MyBase::priv'    => 'MyBase::name initialized';
40         ::is $def{$ident},  'MyBase::def'     => 'MyBase::def initialized';
46 use base qw( MyBase );
71         ::is $name{$ident}, 'MyBase::name'   => 'Der::name initialized';
81 my $obj = MyBase->new({
82     name => 'MyBase::name',
83     snum => 'MyBase::snum',
86     MyBase => {
87         rank => 'MyBase::rank',
88         priv => 'MyBase::priv',
95     name => 'MyBase::name',
96     snum => 'MyBase::snum',
99     MyBase => {
100         rank => 'MyBase::rank',
101         priv => 'MyBase::priv',
112 is $derobj->get_name(), 'MyBase::name'  => 'Der name read accessor';
113 is $derobj->get_rank(), 'MyBase::rank'  => 'Der rank read accessor';
125     name => 'MyBase::name',
126     snum => 'MyBase::snum',
129     MyBase => {
130         rank => 'MyBase::rank',
131         priv => 'MyBase::priv',