X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FUndefTolerant%2FClass.pm;h=13d13803d968d56251c6868b781389aaa441754f;hb=dc3621bc7d4b8f216ea39ed9458714eb1c959b9d;hp=d8484b947896ab0a4e750fac403f460880804df8;hpb=e5d1b64215dcded06a34e7c389958c79f33c3906;p=gitmo%2FMooseX-UndefTolerant.git

diff --git a/lib/MooseX/UndefTolerant/Class.pm b/lib/MooseX/UndefTolerant/Class.pm
index d8484b9..13d1380 100644
--- a/lib/MooseX/UndefTolerant/Class.pm
+++ b/lib/MooseX/UndefTolerant/Class.pm
@@ -1,6 +1,15 @@
 package MooseX::UndefTolerant::Class;
+
+# applied to metaclass, for Moose >= 1.9900
+
+use strict;
+use warnings;
+
 use Moose::Role;
 
+# TODO: this code should be in the attribute trait, in the inlined version of
+# initialize_instance_slot, but this does not yet exist!
+
 around _inline_init_attr_from_constructor => sub {
     my $orig = shift;
     my $self = shift;
@@ -19,5 +28,4 @@ around _inline_init_attr_from_constructor => sub {
 };
 
 no Moose::Role;
-
 1;