use Aspect::Singleton; aspect Singleton => 'Foo::new';