package B;
use A -Base;
use strict;
field $_ for qw(addr phone city);
sub new { bless {}, $self }