#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
eval 'use Mouse ()';
plan skip_all => "Mouse unavailable: $@" if $@;
plan tests => 2;
}
{
package My::Package;
use Any::Moose '::Util::TypeConstraints' => [qw(type)];
::ok defined(&type);
no Any::Moose '::Util::TypeConstraints';
}
ok !My::Package->can('type');