Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

use strict;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
{
package MyRole;
requires 'foo';
}
eval q{
package MyClass;
use Moose;
use MooseX::Types -declare => ['Foo'];
use MooseX::Types::Moose 'Int';
with 'MyRole';
subtype Foo, as Int;
sub foo {}
};
ok !$@, 'type export not picked up as a method on role application';
done_testing();