X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FSingleton%2FRole%2FMeta%2FMethod%2FConstructor.pm;fp=lib%2FMooseX%2FSingleton%2FRole%2FMeta%2FMethod%2FConstructor.pm;h=414b28a55aa81d146c29009a96b1a3bf1a2149d7;hb=387bf3e0e7da14d605b8e5f7ee4909f3d15c56ee;hp=c9a2fedc14a496c8be6835f0168ae31546c1250c;hpb=ee7c0343a64cc51ff4cda1a8a8f502bdcd6ebe69;p=gitmo%2FMooseX-Singleton.git

diff --git a/lib/MooseX/Singleton/Role/Meta/Method/Constructor.pm b/lib/MooseX/Singleton/Role/Meta/Method/Constructor.pm
index c9a2fed..414b28a 100644
--- a/lib/MooseX/Singleton/Role/Meta/Method/Constructor.pm
+++ b/lib/MooseX/Singleton/Role/Meta/Method/Constructor.pm
@@ -82,3 +82,19 @@ override _expected_method_class => sub {
 no Moose;
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::Singleton::Role::Meta::Method::Constructor - Constructor method role for MooseX::Singleton
+
+=head1 DESCRIPTION
+
+This role overrides the generated object C<new> method so that it returns the
+singleton if it already exists.
+
+=cut
+