my $foo = Class->new( this => 2, that => 3 );
my $bar = Class::new( $foo => 4, that => 5 );

##</code><code>##

package Class;

sub new {
  unshift @_, __PACKAGE__
    unless $_[0]->isa(__PACKAGE__);
  # rest of code...
}