package Big::Thing;
use strict;
use base qw(Class::Accessor Small::Thing Needful::Things);

__PACKAGE__->mk_accessors(qw(field1 field2 field3));

sub new {
  ...
  return $package->SUPER::new({ %args });
};