sub constructor {
  my $thing = shift;
  my $class = ref $thing || $thing;
  bless {}, $class;
}

sub factory_proc {
  __PACKAGE__->constructor(@_);
}