lib/MooseX/ClassAttribute/Trait/Role.pm

   1 package MooseX::ClassAttribute::Trait::Role;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION   = '0.12';
   7
   8 use MooseX::ClassAttribute::Meta::Role::Attribute;
   9 use Scalar::Util qw( blessed );
  10
  11 use namespace::autoclean;
  12 use Moose::Role;
  13
  14 with 'MooseX::ClassAttribute::Trait::Mixin::HasClassAttributes';
  15
  16 around add_class_attribute => sub {
  17     my $orig = shift;
  18     my $self = shift;
  19     my $attr = (
  20         blessed $_[0] && $_[0]->isa('Class::MOP::Mixin::AttributeCore')
  21         ? $_[0]
  22         : MooseX::ClassAttribute::Meta::Role::Attribute->new(@_)
  23     );
  24
  25     $self->$orig($attr);
  26
  27     return $attr;
  28 };
  29
  30 sub _attach_class_attribute {
  31     my ( $self, $attribute ) = @_;
  32
  33     $attribute->attach_to_role($self);
  34 }
  35
  36 1;
  37
  38 __END__
  39
  40 =pod
  41
  42 =head1 NAME
  43
  44 MooseX::ClassAttribute::Trait::Role - A trait for roles with class attributes
  45
  46 =head1 SYNOPSIS
  47
  48   for my $attr ( HasClassAttributes->meta()->get_all_class_attributes() )
  49   {
  50       print $attr->name();
  51   }
  52
  53 =head1 DESCRIPTION
  54
  55 This role adds awareness of class attributes to a role metaclass object. It
  56 provides a set of introspection methods that largely parallel the existing
  57 attribute methods, except they operate on class attributes.
  58
  59 =head1 METHODS
  60
  61 Every method provided by this role has an analogous method in
  62 C<Class::MOP::Class> or C<Moose::Meta::Class> for regular attributes.
  63
  64 =head2 $meta->has_class_attribute($name)
  65
  66 =head2 $meta->get_class_attribute($name)
  67
  68 =head2 $meta->get_class_attribute_list()
  69
  70 These methods are exactly like their counterparts in
  71 L<MooseX::ClassAttribute::Trait::Class>.
  72
  73 =head2 $meta->add_class_attribute(...)
  74
  75 This accepts the same options as the L<Moose::Meta::Attribute>
  76 C<add_attribute()> method. However, if an attribute is specified as
  77 "required" an error will be thrown.
  78
  79 =head2 $meta->remove_class_attribute($name)
  80
  81 If the named class attribute exists, it is removed from the role.
  82
  83 =head1 AUTHOR
  84
  85 Dave Rolsky, C<< <autarch@urth.org> >>
  86
  87 =head1 BUGS
  88
  89 See L<MooseX::ClassAttribute> for details.
  90
  91 =head1 COPYRIGHT & LICENSE
  92
  93 Copyright 2007-2010 Dave Rolsky, All Rights Reserved.
  94
  95 This program is free software; you can redistribute it and/or modify
  96 it under the same terms as Perl itself.
  97
  98 =cut