t/08-role-composition.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 lives_ok {
   6     Bar->new->_connections;
   7 } 'finds a class attribute under role composition';
   8
   9 done_testing;
  10
  11 BEGIN {
  12
  13 package Role;
  14 use Moose::Role;
  15 use MooseX::ClassAttribute;
  16
  17 class_has '_connections' => (
  18     is => 'ro',
  19     isa => 'HashRef',
  20     default => sub { {} },
  21    );
  22
  23 package Role2;
  24 use Moose::Role;
  25
  26 package Bar;
  27 use Moose;
  28
  29 with ('Role2','Role');
  30
  31 }