fix trigger example
Hans Dieter Pearcey [Sun, 5 Jul 2009 02:12:25 +0000 (22:12 -0400)]
lib/Moose/Manual/Attributes.pod

index 9c2aff9..0c269d9 100644 (file)
@@ -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";