t/role-tiny-with.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use Test::More;
   4
   5 BEGIN {
   6   package MyRole;
   7
   8   use Role::Tiny;
   9
  10   sub bar { 'role bar' }
  11
  12   sub baz { 'role baz' }
  13 }
  14
  15 BEGIN {
  16   package MyClass;
  17
  18   use Role::Tiny::With;
  19
  20   with 'MyRole';
  21
  22   sub foo { 'class foo' }
  23
  24   sub baz { 'class baz' }
  25
  26 }
  27
  28 is(MyClass->foo, 'class foo', 'method from class no override');
  29 is(MyClass->bar, 'role bar',  'method from role');
  30 is(MyClass->baz, 'class baz', 'method from class');
  31
  32 done_testing;