1package autoclass_039::diamond::d7;
2use base qw(autoclass_039::diamond::d6);
3
4use vars qw(@AUTO_ATTRIBUTES @OTHER_ATTRIBUTES @CLASS_ATTRIBUTES %SYNONYMS %DEFAULTS);
5@AUTO_ATTRIBUTES=qw(auto_d7 dflt_d7);
6@OTHER_ATTRIBUTES=qw(other_d7);
7@CLASS_ATTRIBUTES=qw(class_d7);
8%DEFAULTS=(dflt_d7=>'d7');
9%SYNONYMS=(syn_d7=>'auto_d7');
10Class::AutoClass::declare;
11
12sub other_d7 {
13  my $self=shift;
14  @_? $self->{other_d7}=$_[0]: $self->{other_d7};
15}
161;
17