Select Code to Download

# A.pm
package A;
use 5.014;
...
}

1;

# C.pm
package C;
use 5.014;
...
    say 'Goodbye, ', $self->name, '!';
}
1;

# C1.pm
package C1;
use 5.014;
...
         );

1;

use strict;
use warnings;
...
my $c = C1->new(name => 'John Doe');
$c->say_hello('World');
$c->say_goodbye;

package C1;
use parent (qw(A B C D));