ok($foo_role->has_attribute('bar'), '... FooRole does have the bar attribute');
{
- local $TODO = 'Mouse does not support role attributes';
is_deeply(
join('|', %{$foo_role->get_attribute('bar')}),
join('|', %{+{ is => 'rw', isa => 'Foo' }}),
my $bar = Bar->new;
-TODO: {
- local $TODO = "the special () method isn't properly composed into the class";
- is("$bar", 42, 'overloading can be composed');
-}
+is("$bar", 42, 'overloading can be composed');
use Test::More; # for $TODO
- local $TODO = 'UNIVERSAL methods should be wrappable';
-
::lives_ok { with 'FakeBar' } 'applied role';
my $foo = Foo->new;
use Mouse::Meta::Class;
-$SIG{__WARN__} = sub { die if shift =~ /recurs/ };
-
-TODO:
{
- local $TODO
- = 'Loading Mouse::Meta::Class without loading Mouse.pm causes weird problems';
-
my $meta;
lives_ok {
$meta = Mouse::Meta::Class->create_anon_class(