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 (file)
--- 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;
     }