foo

diff --git a/Changes b/Changes
index 4302474..c3faf70 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Moose::Autobox
 
+0.02 
+    - fixed Moose::Autobox so that PAUSE won't try to 
+      index SCALAR, ARRAY, HASH and CODE.
+
 0.01 Fri. June 9, 2006
     - Autoboxing, all the cool kids are doing it ;)
     
\ No newline at end of file

diff --git a/lib/Moose/Autobox.pm b/lib/Moose/Autobox.pm
index 6a490ad..77fd0c6 100644 (file)
--- a/lib/Moose/Autobox.pm
+++ b/lib/Moose/Autobox.pm
@@ -7,44 +7,45 @@ use warnings;
 use Carp        qw(confess);
 use Scalar::Util ();
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
             
 sub import {
     eval q|
-package SCALAR;
-
+package # hide from PAUSE
+    SCALAR;
 # NOTE:
 # this doesnt make sense, but 
 # I need to prevent Moose from 
 # assiging to @ISA
 use base 'UNIVERSAL';
-
 use Moose;
 with 'Moose::Autobox::Scalar';
 
 *does = \&Moose::Object::does;
 
-package ARRAY;
+package # hide from PAUSE
+    ARRAY;
 use base 'UNIVERSAL';
 use Moose;
 with 'Moose::Autobox::Array';
 
 *does = \&Moose::Object::does;
 
-package HASH;
+package # hide from PAUSE
+    HASH;
 use base 'UNIVERSAL';
 use Moose;
 with 'Moose::Autobox::Hash';
 
 *does = \&Moose::Object::does;
 
-package CODE;
+package # hide from PAUSE 
+    CODE;
 use base 'UNIVERSAL';
 use Moose;
 with 'Moose::Autobox::Code';  
 
 *does = \&Moose::Object::does;
-  
     |;
     confess 'Could not create autobox packages because - ' . $@ if $@;
 }