9 my @moose_exports = qw(
26 can_ok('Foo', $_) for @moose_exports;
35 ok(!Foo->can($_), '... Foo can no longer do ' . $_) for @moose_exports;
37 # and check the type constraints as well
39 my @moose_type_constraint_exports = qw(
40 type subtype as where message
49 eval 'use Moose::Util::TypeConstraints';
53 can_ok('Bar', $_) for @moose_type_constraint_exports;
58 eval 'no Moose::Util::TypeConstraints';
62 ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
69 use Scalar::Util qw( blessed );
74 can_ok( 'Baz', 'blessed' );
79 use Scalar::Util qw( blessed );
85 can_ok( 'Moo', 'blessed' );
91 use Scalar::Util qw( blessed );
92 use Moose blessed => { -as => \$blessed };
97 can_ok( 'Quux', 'blessed' );
98 is( $blessed, \&Scalar::Util::blessed );