diff options
author | Michael Witten <mfwitten@gmail.com> | 2009-04-07 14:59:28 -0500 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2009-04-07 23:41:32 +0200 |
commit | 33739d6a0ba1d04240e125eb235b938a92bfb512 (patch) | |
tree | 348cf7582d61d2902ef95be84dfbd6bdc5fb1801 /pod/perlboot.pod | |
parent | 32914eef9684435810e22ba09e233f616999ab1e (diff) | |
download | perl-33739d6a0ba1d04240e125eb235b938a92bfb512.tar.gz |
Docs: Make use of $self and $class clear
Signed-off-by: Michael Witten <mfwitten@gmail.com>
Diffstat (limited to 'pod/perlboot.pod')
-rw-r--r-- | pod/perlboot.pod | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/perlboot.pod b/pod/perlboot.pod index b3e9c53358..242606212e 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; } |