Lines Matching refs:obj3

137 my $obj3 = Kapow->new();
139 isa_ok $obj3, 'Kapow';
140 is $obj3->z_zwap, undef, 'No z_zwap member by default';
141 is $obj3->sploosh, undef, 'No sploosh member by default';
142 $obj3->z_zwap(qr//);
143 isa_ok $obj3->z_zwap, 'Regexp', 'Can set z_zwap member';
144 $obj3->sploosh(MyObj->new(s => 'pie'));
145 isa_ok $obj3->sploosh, 'MyObj',
147 is $obj3->sploosh->s, 'pie', 'Can set sploosh member to correct object';
200     $obj3->sploosh(MyOther->new(s => 3.14));
204 is $obj3->sploosh->s, 'pie', 'Object is unchanged';
207     $obj3->sploosh(MyObj->new(s => 3.14), 'plop');
211 is $obj3->sploosh->s, 'pie', 'Object is unchanged';