Select Code to Download

my $class = ref($class) || $class;

my $foo = Foo->new();
my $foo2 = $foo->new();
my $foo3 = Foo::new();

+------+-------+-------+
| true | false | final |
...
+------+-------+-------+
|   1  |   x   |   1   |  $foo->new()
+------+-------+-------+

package Foo;
sub new {
...
my $foo = Foo::new();
print $foo;
$foo->test();

main=HASH(0x180035c)

Can't locate object method "test" via package "main" at test.pl line 1
+4.

eval { Foo::new() };
ok(!$@, "Foo::new dies when called as a function");