summaryrefslogtreecommitdiff
path: root/pod/perlboot.pod
diff options
context:
space:
mode:
authorMichael Witten <mfwitten@gmail.com>2009-04-07 14:59:24 -0500
committerYves Orton <demerphq@gmail.com>2009-04-07 23:41:31 +0200
commit549d696aa7d29aae84a712be503ee044e3453020 (patch)
treeb05b5f634d4ec4058238af37100808335e92adfc /pod/perlboot.pod
parentc98e0e85db98f82e6cf495b56dc57b4df0e3d51d (diff)
downloadperl-549d696aa7d29aae84a712be503ee044e3453020.tar.gz
Docs: Get rid of those awful tabs!
Signed-off-by: Michael Witten <mfwitten@gmail.com>
Diffstat (limited to 'pod/perlboot.pod')
-rw-r--r--pod/perlboot.pod22
1 files changed, 11 insertions, 11 deletions
diff --git a/pod/perlboot.pod b/pod/perlboot.pod
index 5a60d628ad..03b25827b1 100644
--- a/pod/perlboot.pod
+++ b/pod/perlboot.pod
@@ -171,8 +171,8 @@ This method provides the constant text for the sound itself.
{ package Cow;
sub sound { "moooo" }
sub speak {
- my $class = shift;
- print "a $class goes ", $class->sound, "!\n";
+ my $class = shift;
+ print "a $class goes ", $class->sound, "!\n";
}
}
@@ -183,8 +183,8 @@ returns C<moooo>. But how different would this be for the C<Horse>?
{ package Horse;
sub sound { "neigh" }
sub speak {
- my $class = shift;
- print "a $class goes ", $class->sound, "!\n";
+ my $class = shift;
+ print "a $class goes ", $class->sound, "!\n";
}
}
@@ -199,8 +199,8 @@ definition for C<speak>:
{ package Animal;
sub speak {
- my $class = shift;
- print "a $class goes ", $class->sound, "!\n";
+ my $class = shift;
+ print "a $class goes ", $class->sound, "!\n";
}
}
@@ -283,8 +283,8 @@ Let's add a mouse, which can barely be heard:
sub sound { "squeak" }
sub speak {
my $class = shift;
- print "a $class goes ", $class->sound, "!\n";
- print "[but you can barely hear it!]\n";
+ print "a $class goes ", $class->sound, "!\n";
+ print "[but you can barely hear it!]\n";
}
}
@@ -324,7 +324,7 @@ First, we can invoke the C<Animal::speak> method directly:
sub speak {
my $class = shift;
Animal::speak($class);
- print "[but you can barely hear it!]\n";
+ print "[but you can barely hear it!]\n";
}
}
@@ -660,8 +660,8 @@ Let's train our animals to eat:
sub name {
my $either = shift;
ref $either
- ? $$either # it's an instance, return name
- : "an unnamed $either"; # it's a class, return generic
+ ? $$either # it's an instance, return name
+ : "an unnamed $either"; # it's a class, return generic
}
sub speak {
my $either = shift;