with 'MooseX::ClassAttribute::Trait::Application';
-sub _apply_class_attributes {
+around apply => sub {
+ my $orig = shift;
my $self = shift;
my $role1 = shift;
my $role2 = shift;
},
);
+ $self->$orig( $role1, $role2 );
+};
+
+sub _apply_class_attributes {
+ my $self = shift;
+ my $role1 = shift;
+ my $role2 = shift;
+
foreach my $attribute_name ( $role1->get_class_attribute_list() ) {
if ( $role2->has_class_attribute($attribute_name)
&& $role2->get_class_attribute($attribute_name)