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