Commit | Line | Data |
---|---|---|
d2470ccf | 1 | use strict; |
39bb3aa5 | 2 | use warnings; |
3 | ||
d2470ccf | 4 | use Test::More tests => 1; |
5 | use Test::Exception; | |
39bb3aa5 | 6 | |
d2470ccf | 7 | use Moose::Meta::Class; |
8 | ||
9 | $SIG{__WARN__} = sub { die if shift =~ /recurs/ }; | |
10 | ||
11 | my $meta; | |
12 | lives_ok { | |
13 | $meta = Moose::Meta::Class->create_anon_class( | |
14 | superclasses => [ 'Moose::Object', ], | |
15 | ); | |
16 | } 'Class is created successfully'; |