sub new {
   my ($class, %args) = @_;
   my $self = { %args{"foo", "bar", "baz"} };
   bless $self, $class;
}