use strict;
use warnings;
+
+use Test::More tests => 1;
+
BEGIN {
+
package My::Meta::Trait;
use Moose::Role;
before 'make_immutable' => sub {
my ($meta) = @_;
+
# $meta->name->meta should have the correct methods on it..
$FAILED++ unless $meta->name->meta->get_method('some_method');
};
}
+
{
+
package TestClass;
use Moose -traits => 'My::Meta::Trait';
- sub some_method {}
+ sub some_method { }
__PACKAGE__->meta->make_immutable;
}
-use Test::More tests => 1;
TODO: {
local $TODO = 'This broke as of 07302fb';
is $My::Meta::Trait::FAILED, 0, 'Can find method';