This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix perlobj SUPER example [perl #113972]
[perl5.git] / pod / perlobj.pod
index 015b1c9..bb0538a 100644 (file)
@@ -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;