# C1.pm
package C1;
use 5.014;
use strict;
use warnings;

use Moo;
extends 'C';
use A;

has '_a' => (is => 'ro',
             default => sub { A->new() },
             handles => [qw(say_hello)]
         );

1;