Rename all MX::CA::Role::Meta packages to MX::CA::Trait, which is shorter and less...

[gitmo/MooseX-ClassAttribute.git] / lib / MooseX / ClassAttribute / Role / Meta / Mixin / HasClassAttributes.pm

diff --git a/lib/MooseX/ClassAttribute/Role/Meta/Mixin/HasClassAttributes.pm b/lib/MooseX/ClassAttribute/Role/Meta/Mixin/HasClassAttributes.pm
deleted file mode 100644 (file)
index 3531f15..0000000
--- a/lib/MooseX/ClassAttribute/Role/Meta/Mixin/HasClassAttributes.pm
+++ /dev/null
@@ -1,75 +0,0 @@
-package MooseX::ClassAttribute::Role::Meta::Mixin::HasClassAttributes;
-
-use strict;
-use warnings;
-
-use namespace::autoclean;
-use Moose::Role;
-
-has _class_attribute_map => (
-    traits  => ['Hash'],
-    is      => 'ro',
-    isa     => 'HashRef[Class::MOP::Mixin::AttributeCore]',
-    handles => {
-        '_add_class_attribute'     => 'set',
-        'has_class_attribute'      => 'exists',
-        'get_class_attribute'      => 'get',
-        '_remove_class_attribute'  => 'delete',
-        'get_class_attribute_list' => 'keys',
-    },
-    default  => sub { {} },
-    init_arg => undef,
-);
-
-# deprecated
-sub get_class_attribute_map {
-    return $_[0]->_class_attribute_map();
-}
-
-sub add_class_attribute {
-    my $self      = shift;
-    my $attribute = shift;
-
-    ( $attribute->isa('Class::MOP::Mixin::AttributeCore') )
-        || confess
-        "Your attribute must be an instance of Class::MOP::Mixin::AttributeCore (or a subclass)";
-
-    $self->_attach_class_attribute($attribute);
-
-    my $attr_name = $attribute->name;
-
-    $self->remove_class_attribute($attr_name)
-        if $self->has_class_attribute($attr_name);
-
-    my $order = ( scalar keys %{ $self->_attribute_map } );
-    $attribute->_set_insertion_order($order);
-
-    $self->_add_class_attribute( $attr_name => $attribute );
-
-    # This method is called to allow for installing accessors. Ideally, we'd
-    # use method overriding, but then the subclass would be responsible for
-    # making the attribute, which would end up with lots of code
-    # duplication. Even more ideally, we'd use augment/inner, but this is
-    # Class::MOP!
-    $self->_post_add_class_attribute($attribute)
-        if $self->can('_post_add_class_attribute');
-
-    return $attribute;
-}
-
-sub remove_class_attribute {
-    my $self = shift;
-    my $name = shift;
-
-    ( defined $name && $name )
-        || confess 'You must provide an attribute name';
-
-    my $removed_attr = $self->get_class_attribute($name);
-    return unless $removed_attr;
-
-    $self->_remove_class_attribute($name);
-
-    return $removed_attr;
-}
-
-1;