Help for this page

Select Code to Download


  1. or download this
    # A.pm
package A;
use 5.014;
...
}

1;
  2. or download this
    # C.pm
package C;
use 5.014;
...
    say 'Goodbye, ', $self->name, '!';
}
1;
  3. or download this
    # C1.pm
package C1;
use 5.014;
...
         );

1;
  4. or download this
    use strict;
use warnings;
...
my $c = C1->new(name => 'John Doe');
$c->say_hello('World');
$c->say_goodbye;
  5. or download this
    package C1;
use parent (qw(A B C D));