trAvis - MANAGER

Edit File: 404-role-overrides.t

#!/usr/bin/perl use strict; use warnings; use Test::More tests => 2; do { package My::Role; use Mouse::Role; sub foo { 'role' } package Parent; use Mouse; sub foo { 'parent' } package Child; use Mouse; extends 'Parent'; with 'My::Role'; }; is(Child->foo, 'role'); do { package ChildOverride; use Mouse; extends 'Parent'; with 'My::Role'; sub foo { 'child' } }; is(ChildOverride->foo, 'child');