Searched refs:MyObj (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Class/
H A DStruct.t21 package MyObj; package
42 my $obj = MyObj->new;
43 isa_ok $obj, 'MyObj';
64 $obj = MyObj->new( c => aClass->new );
H A DStruct.pm496 package MyObj;
500 struct ( 'MyObj', { count => '$', stuff => '%' } );
507 $self->{'MyObj::count'} = shift;
510 return $self->{'MyObj::count'};
514 $x = new MyObj;

Completed in 27 milliseconds