t/001_mouse/812-role-compatibility.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 5;
   4
   5 {
   6     package ParentRole;
   7     use Mouse::Role;
   8     sub parent_method { 'parent_method' }
   9 }
  10
  11 {
  12     package ChildRole;
  13     use Mouse::Role;
  14
  15     with 'ParentRole';
  16
  17     sub child_method { "role's" }
  18 }
  19
  20 {
  21     package Class;
  22     use Mouse;
  23     with 'ChildRole';
  24
  25     sub child_method { "class's" }
  26 }
  27
  28 my $o = Class->new;
  29
  30 ok $o->does('ChildRole'), 'does ChildRole';
  31 ok $o->does('ParentRole'), 'does ParentRole';
  32 can_ok $o, qw(parent_method child_method);
  33 is $o->parent_method, 'parent_method';
  34 is $o->child_method,  "class's";
  35