diff options
-rw-r--r-- | pod/perlobj.pod | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/pod/perlobj.pod b/pod/perlobj.pod index 015b1c966c..bb0538a0d4 100644 --- a/pod/perlobj.pod +++ b/pod/perlobj.pod @@ -325,14 +325,12 @@ methods. sub speak { my $self = shift; - $self->SUPER::speak(); - say 'A'; } package B; - use parent 'A'; + use parent -norequire, 'A'; sub speak { my $self = shift; @@ -344,7 +342,7 @@ methods. package C; - use parent 'B'; + use parent -norequire, 'B'; sub speak { my $self = shift; |