lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm

   1 package MooseX::ClassAttribute::Trait::Application::ToClass;
   2
   3 use strict;
   4 use warnings;
   5
   6 use namespace::autoclean;
   7 use Moose::Role;
   8
   9 with 'MooseX::ClassAttribute::Trait::Application';
  10
  11 sub _apply_class_attributes {
  12     my $self  = shift;
  13     my $role  = shift;
  14     my $class = shift;
  15
  16     $class = Moose::Util::MetaRole::apply_metaclass_roles(
  17         for             => $class,
  18         class_metaroles => {
  19             class => ['MooseX::ClassAttribute::Trait::Class'],
  20         },
  21     );
  22
  23     my $attr_metaclass = $class->attribute_metaclass();
  24
  25     foreach my $attribute_name ( $role->get_class_attribute_list() ) {
  26         if (   $class->has_class_attribute($attribute_name)
  27             && $class->get_class_attribute($attribute_name)
  28             != $role->get_class_attribute($attribute_name) ) {
  29             next;
  30         }
  31         else {
  32             $class->add_class_attribute(
  33                 $role->get_class_attribute($attribute_name)
  34                     ->attribute_for_class($attr_metaclass) );
  35         }
  36     }
  37 }
  38
  39 1;
  40
  41 # ABSTRACT: A trait that supports applying class attributes to classes
  42
  43 __END__
  44
  45 =pod
  46
  47 =head1 DESCRIPTION
  48
  49 This trait is used to allow the application of roles containing class
  50 attributes to classes.
  51
  52 =head1 BUGS
  53
  54 See L<MooseX::ClassAttribute> for details.
  55
  56 =cut