The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;

use Test::Requires 'Moo', 'Test::Warnings';
use Test::Warnings qw( warnings :no_end_test );

{
    package Foo;

    use Moo;

    has foo => (
        is      => 'ro',
        handles => ['bar'],
    );
}

{
    package Bar;

    use Moose;

    ::is_deeply(
        [ ::warnings { extends 'Foo' } ],
        [],
        'no warnings when extending Moo class that has a delegation'
    );
}

done_testing();