package My::Test;

use Mouse;

sub test
{
    my $self = shift;
    my $args = shift;

    return "My::Test\n" . inner($args);
}

package My::Test::Child;

use Mouse;

extends 'My::Test';

augment 'test' => sub
{
    my $self = shift;
    my $args = shift;

    return "My::Test::Child: $args\n" . inner($args);
};

package My::Test::Child::Child;

use Mouse;

extends 'My::Test::Child';

augment 'test' => sub
{
    my $self = shift;
    my $args = shift;

    return "My::Test::Child::Child: $args\n";
};

package main;

print My::Test::Child::Child->new->test("ARGS1");