Yeah exactly. This can be seen below....

package Snafu;
use Carp 'cluck';
sub new {
   warn join ',',@_;
}
1;
Snafu::new("Test");
Snafu->new("Test");
[download]

although the following is also interesting

package Snafu;
use Carp 'cluck';
sub new {
    cluck join ',',@_;
}
sub _new { goto &new }
1;
Snafu::new("Test");
Snafu->new("Test");
Snafu->_new("test");
[download]