Select Code to Download

sub new {
  my ($class) = @_;
...
          || die "Oh no you don't!!!!";  
  bless {}, $class;
}

Foo::new();
Foo::new("SomeOtherModuleName") ;
Foo::new([]);
Foo::new({});

sub new {
  my ($class) = @_;
...
              || die "Oh no you don't!!!!";   
  bless {}, $class;
}