package testPackage6;
use base qw(Class::AutoClass testPackage5);
use vars qw($package @AUTO_ATTRIBUTES @OTHER_ATTRIBUTES %SYNONYMS %DEFAULTS $CASE $age);
 
@AUTO_ATTRIBUTES=qw(first last friends sex has_default);
@OTHER_ATTRIBUTES=qw(age);
%DEFAULTS=(has_default=>'default value');
%SYNONYMS=(gender=>'sex');
$CASE='upper';
Class::AutoClass::declare(__PACKAGE__);

sub age {
  my $self = shift;
  my $age=@_? ($self->{age}=shift): $self->{age};
  return defined $age? $age: "NOT YET IMPLEMENTED";
}
 
sub _init_self {
   my($self,$class,$args)=@_;
   $self->{init_self_history} .= __PACKAGE__;
   return unless $class eq __PACKAGE__; # to prevent subclasses from re-running this
 }
1;