X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=33a1ce7642b21b5d3c88d568b7e8678dd225e20f;hb=7efbc77d922079f81c55e2f1535f222979fe1d96;hp=0f01499a6efa7726a9b4ab5f1ab35914876f0d5d;hpb=aa2d2e2c0621cdcb8b2ec7cf49beb3a9de11803c;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index 0f01499..33a1ce7 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -1,7 +1,7 @@ package Mouse::Object; use Mouse::Util qw(does dump); # enables strict and warnings -sub new { +sub _new { my $class = shift; $class->meta->throw_error('Cannot call new() on an instance') if ref $class;