diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-07-03 20:28:24 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-07-03 20:28:46 -0500 |
commit | 77d38c8d80370651198e27f063fd889851daf560 (patch) | |
tree | 5639759fc20ace067b5ea4c82647494ea097aecc /pod/perlobj.pod | |
parent | a0dffe9bf14c9669153ccc3d5c9341d4864848dd (diff) | |
download | perl-77d38c8d80370651198e27f063fd889851daf560.tar.gz |
fix perlobj SUPER example [perl #113972]
Diffstat (limited to 'pod/perlobj.pod')
-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; |