use strict;
use warnings;
-use Test::More;
-lives_ok {
- Bar->new->_connections;
-} 'finds a class attribute under role composition';
+use Test::More;
-done_testing;
+{
+ package Role;
-BEGIN {
+ use Moose::Role;
+ use MooseX::ClassAttribute;
-package Role;
-use Moose::Role;
-use MooseX::ClassAttribute;
+ class_has 'CA' => (
+ is => 'ro',
+ isa => 'HashRef',
+ default => sub { {} },
+ );
+}
-class_has '_connections' => (
- is => 'ro',
- isa => 'HashRef',
- default => sub { {} },
- );
+{
+ package Role2;
+ use Moose::Role;
+}
-package Role2;
-use Moose::Role;
+{
+ package Bar;
+ use Moose;
-package Bar;
-use Moose;
+ with( 'Role2', 'Role' );
+}
-with ('Role2','Role');
+ok(
+ Bar->can('CA'),
+ 'Class attributes are preserved during role composition'
+);
-}
+done_testing();