package CLASS_B;
use CLASS_A;
@ISA = ('CLASS_A');
use strict;

sub new {
  my $proto = shift;
  my (%params) = @_;
  my $class = ref($proto) || $proto;
  my $self = $class->SUPER::new();
  foreach my $attr (keys %{$params{'self'}}) {
    $self->{$attr} = $params{'self'}->{$attr};
  }
  return $self;
}
1;