1package autoclass_032::diamond::d3; 2use base qw(Class::AutoClass autoclass_032::diamond::d20 autoclass_032::diamond::d21); 3 4sub _init_self { 5 my($self,$class,$args)=@_; 6 push(@{$self->{init_self_history}},'d3'); 7 } 81; 9