#use Mouse::Meta::Method::Accessor;
use Mouse::Meta::Method::Delegation;
-
sub _process_options{
my($class, $name, $args) = @_;
Carp::cluck("$self->canonicalize_args has been deprecated."
. "Use \$self->_process_options instead.")
- if _MOUSE_VERBOSE;
+ if Mouse::Util::_MOUSE_VERBOSE;
return %args;
}
Carp::cluck("$self->create has been deprecated."
. "Use \$meta->add_attribute and \$attr->install_accessors instead.")
- if _MOUSE_VERBOSE;
+ if Mouse::Util::_MOUSE_VERBOSE;
# noop
return $self;
Carp::cluck("$self->clone_parent has been deprecated."
. "Use \$meta->add_attribute and \$attr->install_accessors instead.")
- if _MOUSE_VERBOSE;
+ if Mouse::Util::_MOUSE_VERBOSE;
$self->clone_and_inherited_args($class, $name, %args);
}
return;
}
-
sub delegation_metaclass() { 'Mouse::Meta::Method::Delegation' }
sub install_accessors{
}
}
-
if($attribute->can('create') != \&create){
# backword compatibility
$attribute->create($metaclass, $attribute->name, %{$attribute});
}
1;
-
__END__
=head1 NAME
=head1 VERSION
-This document describes Mouse version 0.40_06
+This document describes Mouse version 0.42
=head1 METHODS