From: Michael Witten <mfwitten@gmail.com>
Date: Tue, 7 Apr 2009 19:59:28 +0000 (-0500)
Subject: Docs: Make use of $self and $class clear
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33739d6a0ba1d04240e125eb235b938a92bfb512;p=p5sagit%2Fp5-mst-13.2.git

Docs: Make use of $self and $class clear

Signed-off-by: Michael Witten <mfwitten@gmail.com>
---

diff --git a/pod/perlboot.pod b/pod/perlboot.pod
index b3e9c53..2426062 100644
--- a/pod/perlboot.pod
+++ b/pod/perlboot.pod
@@ -568,11 +568,11 @@ build a new horse:
     @ISA = qw(Animal);
     sub sound { "neigh" }
     sub name {
-      my $self = shift;
+      my $self = shift;     # instance method, so use $self
       $$self;
     }
     sub named {
-      my $class = shift;
+      my $class = shift;    # class method, so use $class
       my $name = shift;
       bless \$name, $class;
     }