sub list_all_type_constraints { keys %TYPE }
}
-# is-a predicates
-BEGIN{
- _generate_class_type_for('Mouse::Meta::TypeConstraint' => '_is_a_type_constraint');
- _generate_class_type_for('Mouse::Meta::Class' => '_is_a_metaclass');
- _generate_class_type_for('Mouse::Meta::Role' => '_is_a_metarole');
-}
-
-
sub _create_type{
my $mode = shift;
my $class = $options->{class} || $name;
return _create_type 'subtype', $name => (
as => 'Object',
- optimized_as => _generate_class_type_for($class),
+ optimized_as => Mouse::Util::_generate_isa_predicate_for($class),
type => 'Class',
);
my $meta = Mouse::Util::get_metaclass_by_name($spec)
or return undef;
- if(_is_a_metarole($meta)){
+ if(Mouse::Util::is_a_metarole($meta)){
return role_type($spec);
}
else{
sub find_type_constraint {
my($spec) = @_;
- return $spec if _is_a_type_constraint($spec);
+ return $spec if Mouse::Util::is_a_type_constraint($spec);
$spec =~ s/\s+//g;
return $TYPE{$spec};
sub find_or_parse_type_constraint {
my($spec) = @_;
- return $spec if _is_a_type_constraint($spec);
+ return $spec if Mouse::Util::is_a_type_constraint($spec);
$spec =~ s/\s+//g;
return $TYPE{$spec} || do{
=head1 VERSION
-This document describes Mouse version 0.40_02
+This document describes Mouse version 0.40_03
=head2 SYNOPSIS