switch interfaces to be less weird

diff --git a/Changes b/Changes
index 5a77371..d82496f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for MooseX-InsideOut
 
+0.002   Wed, 30 Jan 2008 17:40:32 -0500
+
+  * get rid of the 'extends' interface, emulate MooseX::StrictConstructor
+
 0.001   Thu, 24 Jan 2008 13:17:54 -0500
 
   * first release; thanks to stevan and mst for help

diff --git a/lib/MooseX/InsideOut.pm b/lib/MooseX/InsideOut.pm
index 4f993f5..2f0c41f 100644 (file)
--- a/lib/MooseX/InsideOut.pm
+++ b/lib/MooseX/InsideOut.pm
@@ -3,10 +3,31 @@ use warnings;
 
 package MooseX::InsideOut;
 
-use metaclass 'MooseX::InsideOut::Meta::Class';
-use Moose;
+use MooseX::InsideOut::Meta::Class;
+BEGIN { require Moose }
+use Carp;
 
-our $VERSION = '0.001';
+our $VERSION = '0.002';
+
+sub import {
+  my $class = shift;
+  
+  if (@_) { Carp::confess "$class has no exports" }
+
+  my $into = caller;
+
+  return if $into eq 'main';
+
+  Moose::init_meta(
+    $into,
+    'Moose::Object',
+    'MooseX::InsideOut::Meta::Class',
+  );
+
+  Moose->import({ into => $into });
+
+  return;
+}
 
 1;
 __END__
@@ -17,14 +38,13 @@ MooseX::InsideOut - inside-out objects with Moose
 
 =head1 VERSION
 
-Version 0.001
+Version 0.002
 
 =head1 SYNOPSIS
 
   package My::Object;
 
-  use Moose;
-  extends 'MooseX::InsideOut';
+  use MooseX::InsideOut;
 
   # ... normal Moose functionality
   # or ...
@@ -33,15 +53,16 @@ Version 0.001
 
   use metaclass 'MooseX::InsideOut::Meta::Class';
   use Moose;
-  extends 'Some::Other::Class;
+  extends 'Some::Other::Class';
 
 =head1 DESCRIPTION
 
 MooseX::InsideOut provides a metaclass and an instance metaclass for inside-out
 objects.
 
-You can use MooseX::InsideOut as a normal base class, as in the first example
-in the L</SYNOPSIS>.
+You can use MooseX::InsideOut, as in the first example in the L</SYNOPSIS>.
+This sets up the metaclass and instance metaclass for you, as well as importing
+all of the normal Moose goodies.
 
 You can also use the metaclass C<MooseX::InsideOut::Meta::Class> directly, as
 in the second example.  This is most useful when extending a non-Moose class,

diff --git a/t/lib/InsideOut/BaseIO.pm b/t/lib/InsideOut/BaseIO.pm
index 23311cc..4d93e6a 100644 (file)
--- a/t/lib/InsideOut/BaseIO.pm
+++ b/t/lib/InsideOut/BaseIO.pm
@@ -3,8 +3,7 @@ use warnings;
 
 package InsideOut::BaseIO;
 
-use Moose;
-extends 'MooseX::InsideOut';
+use MooseX::InsideOut;
 
 has base_foo => (
   is => 'rw',