X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse.pm;h=dae207d7c9a7e68aa591a82c92d66912f23df771;hp=2dad7f7e0c92f08d5955f0c0251eaf61ae948b47;hb=306290e864ac23e5f1692c8495b0c173081a1ebb;hpb=58af95b87869e95b132806405054324491903fa1 diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 2dad7f7..dae207d 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -9,8 +9,8 @@ use Sub::Exporter; use Carp 'confess'; use Scalar::Util 'blessed'; -use Mouse::Attribute; -use Mouse::Class; +use Mouse::Meta::Attribute; +use Mouse::Meta::Class; use Mouse::Object; use Mouse::TypeRegistry; @@ -19,7 +19,7 @@ do { my %exports = ( meta => sub { - my $meta = Mouse::Class->initialize($CALLER); + my $meta = Mouse::Meta::Class->initialize($CALLER); return sub { $meta }; }, @@ -37,7 +37,7 @@ do { $names = [$names] if !ref($names); for my $name (@$names) { - Mouse::Attribute->create($package, $name, @_); + Mouse::Meta::Attribute->create($package, $name, @_); } }; }, @@ -62,7 +62,7 @@ do { strict->import; warnings->import; - my $meta = Mouse::Class->initialize($CALLER); + my $meta = Mouse::Meta::Class->initialize($CALLER); $meta->superclasses('Mouse::Object') unless $meta->superclasses; @@ -149,7 +149,7 @@ Moose. =head1 INTERFACE -=head2 meta -> Mouse::Class +=head2 meta -> Mouse::Meta::Class Returns this class' metaclass instance.