9 plan skip_all => "segv happens on 5.6.2";
13 use Test::More tests => 4;
25 use Mouse "-traits" => 'NoOpTrait';
37 is(Child->meta->name, 'Child', "correct metaclass name");
38 my $child = Child->new(attr => "ibute");
39 ok($child, "constructor works");
42 is($child->attr, "ibute", "getter inherited properly");
44 $child->attr("ition");
45 is($child->attr, "ition", "setter inherited properly");