use Data::Dumper;
-our $VERSION = '0.01';
+our $VERSION = '0.51';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Moose::Meta::Role::Application';
next;
}
else {
- # NOTE:
- # this is kinda ugly ...
- if ($class->isa('Moose::Meta::Class')) {
- $class->_process_attribute(
- $attribute_name,
- %{$role->get_attribute($attribute_name)}
- );
- }
- else {
- $class->add_attribute(
- $attribute_name,
- $role->get_attribute($attribute_name)
- );
- }
+ $class->add_attribute(
+ $attribute_name,
+ $role->get_attribute($attribute_name)
+ );
}
}
}
$class->get_method($method_name)->body != $role->get_method($method_name)->body) {
next;
}
- else {
-
+ else {
# add it, although it could be overriden
$class->alias_method(
$method_name,
=head1 NAME
-Moose::Meta::Role::Application::ToClass
+Moose::Meta::Role::Application::ToClass - Compose a role into a class
=head1 DESCRIPTION