sub new { my $class = shift; my $self = { foo => 'bar', baz => 'qux', }; return bless $self, $class; }