package MooseCompat;
# Moose compatible methods/functions
+
+use Test::Builder (); # should load Test::Builder first
+
use Mouse ();
use Mouse::Util::MetaRole;
use Mouse::Meta::Method;
$INC{'Mouse/Meta/Instance.pm'} = __FILE__;
$INC{'Mouse/Deprecated.pm'} = __FILE__;
-
*UNIVERSAL::DOES = sub {
my($thing, $role) = @_;
$thing->isa($role);
sub role_applications { }
-package Mouse::Meta::Class;
-
-sub _immutable_options { }
-
package Mouse::Meta::Role;
for my $modifier_type (qw/before after around/) {
sub associated_attribute { undef }
-package Mouse::Meta::Method::Constructor;
-
-sub _generate_BUILDALL { }
-
-package Mouse::Meta::Method::Constructor::XS;
-
-sub _generate_BUILDALL { }
-
package Mouse::Util::TypeConstraints;
use Mouse::Util::TypeConstraints ();