}
}
-sub compute_all_applicable_attributes {
+sub compute_all_applicable_attributes { shift->get_all_attributes(@_) }
+sub get_all_attributes {
my $self = shift;
my (@attr, %seen);
my $clone = bless { %$instance }, ref $instance;
- foreach my $attr ($class->compute_all_applicable_attributes()) {
+ foreach my $attr ($class->get_all_attributes()) {
if ( defined( my $init_arg = $attr->init_arg ) ) {
if (exists $params{$init_arg}) {
$clone->{ $attr->name } = $params{$init_arg};
my $self = shift;
my %args = (
inline_constructor => 1,
+ inline_destructor => 1,
@_,
);
for my $class ($self->linearized_isa) {
next unless $class->can('meta') and $class->meta->can('roles');
- for my $role (@{ $self->roles }) {
+ for my $role (@{ $class->meta->roles }) {
return 1 if $role->name eq $role_name;
}
}
Begins keeping track of the existing L<Mouse::Meta::Attribute> for the owner
class.
-=head2 compute_all_applicable_attributes -> (Mouse::Meta::Attribute)
+=head2 get_all_attributes -> (Mouse::Meta::Attribute)
Returns the list of all L<Mouse::Meta::Attribute> instances associated with
this class and its superclasses.
This returns a list of attribute names which are defined in the local
class. If you want a list of all applicable attributes for a class,
-use the C<compute_all_applicable_attributes> method.
+use the C<get_all_attributes> method.
=head2 has_attribute Name -> Bool
=head2 clone_instance Instance, Parameters -> Instance
-Clones the given C<Instance> and sets any additional parameters.
+The clone_instance method has been made private.
+The public version is deprecated.
=cut