-#!/usr/bin/env perl
package MooseX::Singleton::Role::Object;
use Moose::Role;
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 {