From: Dave Rolsky <autarch@urth.org>
Date: Sat, 12 Sep 2009 22:23:31 +0000 (-0500)
Subject: Small tweaks to initializer docs
X-Git-Tag: 0.93~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea62c8ab6b9bf0a05d45d2ee2072b357714b5c9b;p=gitmo%2FClass-MOP.git

Small tweaks to initializer docs
---

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index 22f8746..4e128ec 100644
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -591,7 +591,7 @@ twice the given value.
   Class::MOP::Attribute->new(
       'doubled' => (
           initializer => sub {
-              my ( $instance, $value, $set ) = @_;
+              my ( $self, $value, $set, $attr ) = @_;
               $set->( $value * 2 );
           },
       )