package Class;

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