1package autoclass_037::diamond::d20; 2use base qw(autoclass_037::diamond::d1); 3 4use vars qw(@AUTO_ATTRIBUTES @OTHER_ATTRIBUTES @CLASS_ATTRIBUTES %SYNONYMS %DEFAULTS); 5@AUTO_ATTRIBUTES=qw(); 6@OTHER_ATTRIBUTES=qw(); 7@CLASS_ATTRIBUTES=qw(); 8%DEFAULTS=(); 9%SYNONYMS=(); 10Class::AutoClass::declare(__PACKAGE__); 11 12sub _init_self { 13 my($self,$class,$args)=@_; 14 push(@{$self->{init_self_history}},'d20'); 15 } 161; 17