package ClassA;

use strict;

use base qw(fields);
use fields qw(id name);

sub new {
  my $class = shift;
  $class->SUPER::new();
}

sub getclass
{
  my $self = shift;
  return ref($self);
}

1;