From: Hans Dieter Pearcey <hdp@weftsoar.net>
Date: Sun, 5 Jul 2009 02:12:25 +0000 (-0400)
Subject: fix trigger example
X-Git-Tag: 0.89~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97144b325141562df3bba184cde3ab93a5cfded4;p=gitmo%2FMoose.git

fix trigger example
---

diff --git a/lib/Moose/Manual/Attributes.pod b/lib/Moose/Manual/Attributes.pod
index 9c2aff9..0c269d9 100644
--- a/lib/Moose/Manual/Attributes.pod
+++ b/lib/Moose/Manual/Attributes.pod
@@ -456,12 +456,12 @@ set:
   );
 
   sub _size_set {
-      my ( $self, $size ) = @_;
+      my ( $self, $size, $old_size ) = @_;
 
       my $msg = $self->name;
 
-      if (@_) {
-          $msg .= " - old size was $_[0]";
+      if (@_ > 2) {
+          $msg .= " - old size was $old_size";
       }
 
       $msg .= " - size is now $size";