}
sub _attach_class_attribute {
- my ($self, $attribute) = @_;
+ my ( $self, $attribute ) = @_;
$attribute->attach_to_class($self);
}
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() }
return $meta->get_class_attribute($name)
if $meta->can('has_class_attribute')
- && $meta->has_class_attribute($name);
+ && $meta->has_class_attribute($name);
}
return;