X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-ClassAttribute.git;a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute%2FTrait%2FClass.pm;fp=lib%2FMooseX%2FClassAttribute%2FTrait%2FClass.pm;h=2a48b097ebb1ba5544bb1fc4c025c20bf11a406e;hp=daa2ccbf1e7b0ab5e03a6b8cd1227876aa721c64;hb=3e9e5aef1aa4a05b64d7beddc49121775bec5320;hpb=cd8784bb787360b59a0df1d8513633ce2bd593f4 diff --git a/lib/MooseX/ClassAttribute/Trait/Class.pm b/lib/MooseX/ClassAttribute/Trait/Class.pm index daa2ccb..2a48b09 100644 --- a/lib/MooseX/ClassAttribute/Trait/Class.pm +++ b/lib/MooseX/ClassAttribute/Trait/Class.pm @@ -59,7 +59,7 @@ sub _post_add_class_attribute { } sub _attach_class_attribute { - my ($self, $attribute) = @_; + my ( $self, $attribute ) = @_; $attribute->attach_to_class($self); } @@ -126,8 +126,7 @@ around remove_class_attribute => sub { sub get_all_class_attributes { my $self = shift; - my %attrs - = map { + my %attrs = map { my $meta = Class::MOP::class_of($_); $meta && $meta->can('_class_attribute_map') ? %{ $meta->_class_attribute_map() } @@ -156,7 +155,7 @@ sub find_class_attribute_by_name { return $meta->get_class_attribute($name) if $meta->can('has_class_attribute') - && $meta->has_class_attribute($name); + && $meta->has_class_attribute($name); } return;