+++ /dev/null
-#!/usr/bin/env 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');
-