# Moose compatible methods/functions
+package Mouse::Meta::Module;
+
+sub version { no strict 'refs'; ${shift->name.'::VERSION'} }
+sub authority { no strict 'refs'; ${shift->name.'::AUTHORITY'} }
+sub identifier {
+ my $self = shift;
+ return join '-' => (
+ $self->name,
+ ($self->version || ()),
+ ($self->authority || ()),
+ );
+}
+
+
package Mouse::Util::TypeConstraints;
use Mouse::Util::TypeConstraints ();
my $into = caller;
foreach my $type( list_all_type_constraints() ) {
- my $tc = find_type_constraint($type)->{_compiled_type_constraint};
+ my $tc = find_type_constraint($type)->_compiled_type_constraint;
my $as = $into . '::' . $type;
no strict 'refs';