has twist => ( is => "rw" );
{
- local our $TODO = "accessors don't satisfy role requires";
::lives_ok { with qw(Dancer) };
}
req_or_has($gorch, "gorch_method");
ok( $gorch->has_method("gorch_method"), "has_method gorch_method" );
ok( !$gorch->requires_method("gorch_method"), "requires gorch method" );
-
-{
- local $TODO = "role method isn't a meta object yet";
- isa_ok( $gorch->get_method("gorch_method"), "Moose::Meta::Method" );
-}
+isa_ok( $gorch->get_method("gorch_method"), "Moose::Meta::Method" );
{
local $TODO = "method modifier doesn't yet create a method requirement or meta object";
}
{
- local $TODO = "attribute related methods are not yet known by the role";
req_or_has($robot, "twist");
+
+ local $TODO = "attribute related methods are not yet known by the role";
ok( $robot->has_method("twist"), "has twist method" );
isa_ok( $robot->get_method("twist"), "Moose::Meta::Method" );
isa_ok( $robot->get_method("twist"), "Moose::Meta::Method::Accessor" );