sub new {
  my $class = shift;
  my %data = { 'member data' => 'initial value' };
  return bless \%data, $class;
}