X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=ba791a96aeefee869acdfc316b5eccf0dadd402f;hb=2df74b3a354723710bc01ee836297ea3791d01dc;hp=5f6ea376450f40f135b2044f8c1ab824a7250fbf;hpb=c4ec764243251d46cffa30ae028beef530b0a432;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 5f6ea37..ba791a9 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -4,7 +4,7 @@ use warnings; use 5.006; use base 'Exporter'; -our $VERSION = '0.19'; +our $VERSION = '0.20'; use Carp 'confess'; use Scalar::Util 'blessed'; @@ -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 }; @@ -427,6 +430,8 @@ tokuhirom Yappo +wu-lee + with plenty of code borrowed from L and L =head1 BUGS