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
  71 #-----------------------------------------------------------------------------
  72
  73 ## name Name collision with aliasing
  74 ## failures 0
  75 ## cut
  76
  77 package Role;
  78 use Moose::Role;
  79
  80 sub foo {}
  81
  82 package Class;
  83 use Moose;
  84 with 'Role' => { alias => { foo => 'foo_bar' } };
  85
  86 sub foo {}
  87