package Moose::Autobox;
-
+use 5.006;
use strict;
use warnings;
use Carp qw(confess);
use Scalar::Util ();
+use Moose::Util ();
-our $VERSION = '0.05';
+our $VERSION = '0.11';
use base 'autobox';
my ($class, $type, $role) = @_;
($type =~ /SCALAR|ARRAY|HASH|CODE/)
|| confess "Can only add additional roles to SCALAR, ARRAY, HASH or CODE";
- ('Moose::Autobox::' . $type)->meta->_apply_all_roles($role);
+ Moose::Util::apply_all_roles(('Moose::Autobox::' . $type)->meta, ($role));
}
{
use metaclass 'Moose::Meta::Class';
- __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Scalar');
+ Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Scalar'));
*does = \&Moose::Object::does;
use metaclass 'Moose::Meta::Class';
- __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Array');
+ Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Array'));
*does = \&Moose::Object::does;
use metaclass 'Moose::Meta::Class';
- __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Hash');
+ Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Hash'));
*does = \&Moose::Object::does;
use metaclass 'Moose::Meta::Class';
- __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Code');
+ Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Code'));
*does = \&Moose::Object::does;
=head1 NAME
-Moose::Autobox - Ruby ain't got nothin on us
+Moose::Autobox - Autoboxed wrappers for Native Perl datatypes
=head1 SYNOPOSIS
print 'Print squares from 1 to 10 : ';
print [ 1 .. 10 ]->map(sub { $_ * $_ })->join(', ');
-=head1 CAVEAT
-
-First, a warning.
-
-This module is very very very very very very very experimental. It
-makes use of a very experimental module (L<autobox>) and uses some
-shiney new technology (L<Moose::Role>) to accomplish it's goals.
-
-Use this at your own risk. If it breaks the lamp in the living room
-and your mother yells at you, don't come complaining to me.
-
-Also, as this is so experimental, it's API should not be considered
-to be stable. It could very well change in radical ways.
-
=head1 DESCRIPTION
Moose::Autobox provides an implementation of SCALAR, ARRAY, HASH
=head2 Is this for real? or just play?
-My intent is to try and make this module as production worthy as
-possible. This may or may not be possible, depending on how well
-L<autobox> works out. At this point, I have high hopes for things
-but only time (and more tests and code) will tell.
+Several people are using this module in serious applications and
+it seems to be quite stable. The underlying technologies of L<autobox>
+and L<Moose::Role> are also considered stable. There is some performance
+hit, but as I am fond of saying, nothing in life is free. If you have
+any questions regarding this module, either email me, or stop by #moose
+on irc.perl.org and ask around.
+
+=head2 Adding additional methods
+
+B<Moose::Autobox> asks L<autobox> to use the B<Moose::Autobox::*> namespace
+prefix so as to avoid stepping on the toes of other L<autobox> modules. This
+means that if you want to add methods to a particular perl type
+(i.e. - monkeypatch), then you must do this:
+
+ sub Moose::Autobox::SCALAR::bar { 42 }
+
+instead of this:
+
+ sub SCALAR::bar { 42 }
+
+as you would with vanilla autobox.
=head1 METHODS
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2007 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>