package MyClass;

use Moo;
use Role::Tiny();

sub BUILD {
    my $self = shift;

    Role::Tiny->apply_roles_to_object( $self, 'MyClass::Child' );

    return $self;
};

sub foo { return 'foo'; }

1;