package C; 
use A -Base;
use strict;
field $_ for qw(model type);
sub new { bless {}, $self }