BUGS

diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm
index 3dc6611..26df000 100644 (file)
--- a/lib/Moose/Meta/Class.pm
+++ b/lib/Moose/Meta/Class.pm
@@ -4,6 +4,8 @@ package Moose::Meta::Class;
 use strict;
 use warnings;
 
+use Class::MOP;
+
 use Carp         'confess';
 use Scalar::Util 'weaken', 'blessed';
 

diff --git a/lib/Moose/Object.pm b/lib/Moose/Object.pm
index 569246b..a035523 100644 (file)
--- a/lib/Moose/Object.pm
+++ b/lib/Moose/Object.pm
@@ -3,6 +3,8 @@ package Moose::Object;
 
 use strict;
 use warnings;
+
+use Moose::Meta::Class;
 use metaclass 'Moose::Meta::Class' => (
        ':attribute_metaclass' => 'Moose::Meta::Attribute'
 );

diff --git a/t/102_Moose_Object_error.t b/t/102_Moose_Object_error.t
new file mode 100644 (file)
index 0000000..37e20f3
--- /dev/null
+++ b/t/102_Moose_Object_error.t
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use lib 't/lib', 'lib';
+
+use Test::More tests => 1;
+
+use_ok('MyMooseObject');
\ No newline at end of file

diff --git a/t/lib/MyMooseObject.pm b/t/lib/MyMooseObject.pm
new file mode 100644 (file)
index 0000000..53178e4
--- /dev/null
+++ b/t/lib/MyMooseObject.pm
@@ -0,0 +1,7 @@
+package MyMooseObject;
+
+use strict;
+use warnings;
+use base 'Moose::Object';
+
+1;
\ No newline at end of file