package Mouse::Meta::Module;
use Mouse::Util qw/:meta get_code_package get_code_ref load_class not_supported/; # enables strict and warnings
-use Mouse::Util::TypeConstraints ();
-
use Carp ();
use Scalar::Util ();
sub has_attribute { exists $_[0]->{attributes}->{$_[1]} }
sub get_attribute { $_[0]->{attributes}->{$_[1]} }
-sub get_attribute_list{ keys %{$_[0]->{attributes}} }
sub remove_attribute { delete $_[0]->{attributes}->{$_[1]} }
+sub get_attribute_list{ keys %{$_[0]->{attributes}} }
+
+
# XXX: for backward compatibility
my %foreign = map{ $_ => undef } qw(
Mouse Mouse::Role Mouse::Util Mouse::Util::TypeConstraints
my $superclasses;
if(exists $options{superclasses}){
- if(Mouse::Util::TypeConstraints::_is_a_metarole($self)){
+ if(Mouse::Util::is_a_metarole($self)){
delete $options{superclasses};
}
else{
=head1 VERSION
-This document describes Mouse version 0.40_02
+This document describes Mouse version 0.40_05
=head1 SEE ALSO