my($self, $method_name) = @_;
defined($method_name)
or $self->throw_error('You must define a method name to find');
+
foreach my $class( $self->linearized_isa ){
my $method = $self->initialize($class)->get_method($method_name);
return $method if defined $method;
}
sub compute_all_applicable_attributes {
- Carp::cluck('compute_all_applicable_attributes() has been deprecated');
+ Carp::cluck('compute_all_applicable_attributes() has been deprecated')
+ if _MOUSE_VERBOSE;
return shift->get_all_attributes(@_)
}
my $key = $attribute->name;
if (defined($from) && exists($args->{$from})) {
- $object->{$key} = $attribute->_coerce_and_verify($args->{$from});
+ $object->{$key} = $attribute->_coerce_and_verify($args->{$from}, $object);
weaken($object->{$key})
if ref($object->{$key}) && $attribute->is_weak_ref;
: ref($default) eq 'CODE' ? $object->$default()
: $default;
- # XXX: we cannot use $attribute->set_value() because it invokes triggers.
- $object->{$key} = $attribute->_coerce_and_verify($value, $object);;
+ $object->{$key} = $attribute->_coerce_and_verify($value, $object);
weaken($object->{$key})
if ref($object->{$key}) && $attribute->is_weak_ref;
Mouse::Meta::Class - The Mouse class metaclass
+=head1 VERSION
+
+This document describes Mouse version 0.38
+
=head1 METHODS
=head2 C<< initialize(ClassName) -> Mouse::Meta::Class >>