my $obj = My::Class->new(...); my $other_obj = $obj->new(...); #### My::Class->new("a","b"); #### My::Class::new("My::Class","a","b"); #### $self = { @_ }; # or %$self = @_; #### sub new { my ($class,%args) = @_; my $self = \%args; bless $self, ref($class)||$class; };