use 5.006;
use base 'Exporter';
-our $VERSION = '0.18';
-
-BEGIN {
- if ($ENV{MOUSE_DEBUG}) {
- *DEBUG = sub (){ 1 };
- } else {
- *DEBUG = sub (){ 0 };
- }
-}
+our $VERSION = '0.20';
use Carp 'confess';
use Scalar::Util 'blessed';
$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 };
Yappo
+wu-lee
+
with plenty of code borrowed from L<Class::MOP> and L<Moose>
=head1 BUGS