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