t/001_mouse/404-role-overrides.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 2;
   5
   6 do {
   7     package My::Role;
   8     use Mouse::Role;
   9
  10     sub foo { 'role' }
  11
  12     package Parent;
  13     use Mouse;
  14
  15     sub foo { 'parent' }
  16
  17     package Child;
  18     use Mouse;
  19     extends 'Parent';
  20     with 'My::Role';
  21 };
  22
  23 is(Child->foo, 'role');
  24
  25 do {
  26     package ChildOverride;
  27     use Mouse;
  28     extends 'Parent';
  29     with 'My::Role';
  30
  31     sub foo { 'child' }
  32 };
  33
  34 is(ChildOverride->foo, 'child');
  35