6 use Test::More tests => 41;
9 my @moose_exports = qw(
25 can_ok('Foo', $_) for @moose_exports;
34 ok(!Foo->can($_), 'Foo can no longer do ' . $_) for @moose_exports;
36 # and check the type constraints as well
38 my @moose_type_constraint_exports = qw(
39 type subtype as where message
48 eval 'use Moose::Util::TypeConstraints';
52 can_ok('Bar', $_) for @moose_type_constraint_exports;
57 eval 'no Moose::Util::TypeConstraints';
61 ok(!Bar->can($_), 'Bar can no longer do ' . $_) for @moose_type_constraint_exports;
67 use Scalar::Util qw( blessed );
73 can_ok( 'Baz', 'blessed' );