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; };
## 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; };