package ClassB;

use strict;

use base qw(ClassA);
use fields qw(addr phone city);

use ClassC;

sub addC
{
  my $self = shift;
  $self->{c} = ClassC->new();
}
1;