package My::DelegChild;
use Moose;

use My::Parent 'short';

has a => (is => 'ro');
has b => (is => 'ro');

has _parent => (is => 'ro',
                lazy => 1,
                default => sub { my ($self) = @_;
                                 'My::Parent'->new({ a => $self->a,
                                                     b => $self->b });
                },
                handles => ['frob']);


no Moose;
__PACKAGE__->meta->make_immutable