From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use MooseX::Types -declare => ['Foo'];
use MooseX::Types::Moose qw( Any );
is(
exception { subtype Foo, as Any },
undef,
'no exception when subtyping Any type'
);
done_testing();