package autoclass_101::Child;
use strict;
use Class::AutoClass;
# use Parent;  # do NOT use Parent!! this is the whole point of the test!!!
use vars
  qw(@ISA @AUTO_ATTRIBUTES @OTHER_ATTRIBUTES @CLASS_ATTRIBUTES %SYNONYMS %DEFAULTS);
@ISA              = qw(Class::AutoClass autoclass_101::Parent);
@AUTO_ATTRIBUTES  = qw(auto_c real_c);
@OTHER_ATTRIBUTES = qw(other_c);
@CLASS_ATTRIBUTES = qw(class_c);
%SYNONYMS         = (syn_c=>'real_c');
%DEFAULTS = (auto_c       => 'child auto attribute',
	     other_c      => 'child other attribute',
	     class_c      => 'child class attribute',
	     real_c       => 'child target of synonym',
	     syn_c        => 'child synonym',
	    );
Class::AutoClass::declare;

sub other_c {
  my $self=shift;
  @_? $self->{_other_c}=$_[0]: $self->{_other_c};
}
1;