From: Stevan Little Date: Sun, 24 Sep 2006 00:50:44 +0000 (+0000) Subject: foo X-Git-Tag: 0_35~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8dfcfb7a421e85b1a84cd4308e8eb5136293adb;p=gitmo%2FClass-MOP.git foo --- diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm index e0f32e8..ce73d0c 100644 --- a/lib/Class/MOP.pm +++ b/lib/Class/MOP.pm @@ -673,6 +673,16 @@ L =back +=head2 Article + +=over 4 + +=item CPAN Module Review of Class::MOP + +L + +=back + =head1 SIMILAR MODULES As I have said above, this module is a class-builder-builder, so it is diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm index 8a51a5c..c14eca3 100644 --- a/lib/Class/MOP/Attribute.pm +++ b/lib/Class/MOP/Attribute.pm @@ -33,6 +33,7 @@ sub new { (defined $name && $name) || confess "You must provide a name for the attribute"; + $options{init_arg} = $name if not exists $options{init_arg};