trAvis - MANAGER

Edit File: use_base_of_moose.t

#!/usr/bin/perl use strict; use warnings; use Test::More; { package NoOpTrait; use Moose::Role; } { package Parent; use Moose -traits => 'NoOpTrait'; has attr => ( is => 'rw', isa => 'Str', ); } { package Child; use base 'Parent'; } is(Child->meta->name, 'Child', "correct metaclass name"); my $child = Child->new(attr => "ibute"); ok($child, "constructor works"); is($child->attr, "ibute", "getter inherited properly"); $child->attr("ition"); is($child->attr, "ition", "setter inherited properly"); done_testing;