t/DynamicMoose/ClassOverridesRole.run

   1 ## name No collision
   2 ## failures 0
   3 ## cut
   4
   5 package Role;
   6 use Moose::Role;
   7
   8 sub role {}
   9
  10 package Class;
  11 use Moose;
  12 with 'Role';
  13
  14 sub class {}
  15
  16 #-----------------------------------------------------------------------------
  17
  18 ## name Name collision
  19 ## failures 1
  20 ## cut
  21
  22 package Role;
  23 use Moose::Role;
  24
  25 sub foo {}
  26
  27 package Class;
  28 use Moose;
  29 with 'Role';
  30
  31 sub foo {}
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name Name collision with exclusion
  36 ## failures 0
  37 ## cut
  38
  39 package Role;
  40 use Moose::Role;
  41
  42 sub foo {}
  43
  44 package Class;
  45 use Moose;
  46 with 'Role' => { excludes => 'foo' };
  47
  48 sub foo {}
  49
  50 #-----------------------------------------------------------------------------
  51
  52 ## name Name collision from two roles
  53 ## failures 1
  54 ## cut
  55
  56 package Role::A;
  57 use Moose::Role;
  58
  59 sub foo {}
  60
  61 package Role::B;
  62 use Moose::Role;
  63
  64 sub foo {}
  65
  66 package Class;
  67 use Moose;
  68 with 'Role::A';
  69 with 'Role::B';
  70