use strict;
use warnings;
-use Test::More tests => 21;
+use Test::More;
use Test::Exception;
-
{
package Foo;
use Moose;
has 'bar' => (is => 'ro');
-
+
package Bar;
use Moose::Role;
-
- has 'baz' => (is => 'ro', default => 'BAZ');
+
+ has 'baz' => (is => 'ro', default => 'BAZ');
}
# normal ...
is($foo->baz, 'FOO-BAZ', '... got the expect value');
}
-
+done_testing;