projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
make a subtype for each Mouse class This behavior is same as Moose.
[gitmo/Mouse.git]
/
lib
/
Mouse.pm
diff --git
a/lib/Mouse.pm
b/lib/Mouse.pm
index
34be993
..
89b6289
100644
(file)
--- a/
lib/Mouse.pm
+++ b/
lib/Mouse.pm
@@
-115,6
+115,9
@@
sub import {
$meta->superclasses('Mouse::Object')
unless $meta->superclasses;
+ # make a subtype for each Mouse class
+ class_type($caller) unless find_type_constraint($caller);
+
no strict 'refs';
no warnings 'redefine';
*{$caller.'::meta'} = sub { $meta };