From: Stevan Little Date: Sat, 10 Jun 2006 01:09:29 +0000 (+0000) Subject: foo X-Git-Tag: 0_02~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f6b31a149abc497265076b7fc13280d24cb4c17;p=gitmo%2FMoose-Autobox.git foo --- diff --git a/Changes b/Changes index 4302474..c3faf70 100644 --- 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 --- 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 $@; }