Commit | Line | Data |
---|---|---|
4c98ebb0 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More tests => 1; | |
5 | use Test::Exception; | |
6 | ||
7 | use Mouse::Meta::Class; | |
8 | ||
9 | $SIG{__WARN__} = sub { die if shift =~ /recurs/ }; | |
10 | ||
11 | TODO: | |
12 | { | |
13 | # local $TODO | |
14 | # = 'Loading Mouse::Meta::Class without loading Mouse.pm causes weird problems'; | |
15 | ||
16 | my $meta; | |
17 | lives_ok { | |
18 | $meta = Mouse::Meta::Class->create_anon_class( | |
19 | superclasses => [ 'Mouse::Object', ], | |
20 | ); | |
21 | } | |
22 | 'Class is created successfully'; | |
23 | } |