From: Dave Rolsky Date: Fri, 25 Dec 2009 15:35:27 +0000 (-0600) Subject: Make initialize work X-Git-Tag: 0.22~17 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Singleton.git;a=commitdiff_plain;h=21e8090985d599523a45b308f0995a148d442ab7 Make initialize work --- diff --git a/lib/MooseX/Singleton/Role/Object.pm b/lib/MooseX/Singleton/Role/Object.pm index b09613f..105ec7e 100644 --- a/lib/MooseX/Singleton/Role/Object.pm +++ b/lib/MooseX/Singleton/Role/Object.pm @@ -10,7 +10,7 @@ sub initialize { my $existing = $class->meta->existing_singleton; confess "Singleton is already initialized" if $existing; - return $class->SUPER::new(@args); + return $class->new(@args); } override new => sub {