Docs: Make use of $self and $class clear
authorMichael Witten <mfwitten@gmail.com>
Tue, 7 Apr 2009 19:59:28 +0000 (14:59 -0500)
committerYves Orton <demerphq@gmail.com>
Tue, 7 Apr 2009 21:41:32 +0000 (23:41 +0200)
Signed-off-by: Michael Witten <mfwitten@gmail.com>
pod/perlboot.pod

index b3e9c53..2426062 100644 (file)
@@ -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;
     }