#!perl -w
use strict;
use Test::More;
{
package Foo;
use Mouse;
package Bar;
use Mouse;
has 'root' => (is => 'ro', weak_ref => 1);
package R;
use Mouse::Role;
}
my $a = Foo->new;
my $b = Bar->new(root => $a);
my $w = "";
{
local $SIG{__WARN__} = sub {
$w .= join "", @_;
};
R->meta->apply($b);
}
is $w, "", "no warnings about weak refs";
done_testing;