package BasicX::AAA1;

use BasicX;
our @ISA = qw(BasicX); 

sub new {
  my $class = shift;
  my $args  = shift;

  my $newclass = $class->SUPER::new(
                            {
                               DEBUG      => $args->{DEBUG},
                               SETTTING1  => $args->{SETTING1},
                            }
                         );

  return $newclass;
}

1;