use strict;
use warnings;
-use Test::More tests => 42;
+use Test::More;
my @moose_exports = qw(
- extends with
- has
+ extends with
+ has
before after around
override
augment
super inner
- make_immutable
);
{
# and check the type constraints as well
my @moose_type_constraint_exports = qw(
- type subtype as where message
- coerce from via
+ type subtype as where message
+ coerce from via
enum
find_type_constraint
);
ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
+
+{
+ package Baz;
+
+ use Scalar::Util qw( blessed );
+ use Moose;
+
+ no Moose;
+}
+
+can_ok( 'Baz', 'blessed' );
+
+done_testing;