1package autoclass_036::diamond::d1; 2use base qw(Class::AutoClass); 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; 11 12sub _init_self { 13 my($self,$class,$args)=@_; 14 push(@{$self->{init_self_history}},'d1'); 15 } 161; 17