X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FAutobox.pm;h=934b7a3d78c7adda47769f9df4943f94b9f11922;hb=ca2e2c86816f49d84218f96711dafd5e2e2c2a09;hp=775f6a4f56b5036cd22badc14408ed1360cbe03b;hpb=bb5a920e543934195a1c4c236ed63183aaa0615d;p=gitmo%2FMoose-Autobox.git diff --git a/lib/Moose/Autobox.pm b/lib/Moose/Autobox.pm index 775f6a4..934b7a3 100644 --- a/lib/Moose/Autobox.pm +++ b/lib/Moose/Autobox.pm @@ -1,54 +1,76 @@ package Moose::Autobox; - +use 5.006; use strict; use warnings; use Carp qw(confess); use Scalar::Util (); +use Moose::Util (); -our $VERSION = '0.03'; +our $VERSION = '0.08'; use base 'autobox'; +use Moose::Autobox::Undef; + sub import { (shift)->SUPER::import( DEFAULT => 'Moose::Autobox::', UNDEF => 'Moose::Autobox::Undef', ); } + +sub mixin_additional_role { + my ($class, $type, $role) = @_; + ($type =~ /SCALAR|ARRAY|HASH|CODE/) + || confess "Can only add additional roles to SCALAR, ARRAY, HASH or CODE"; + Moose::Util::apply_all_roles(('Moose::Autobox::' . $type)->meta, ($role)); +} + +{ -package Moose::Autobox::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'; + package Moose::Autobox::SCALAR; + + use Moose::Autobox::Scalar; + + use metaclass 'Moose::Meta::Class'; + + Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Scalar')); + + *does = \&Moose::Object::does; + + package Moose::Autobox::ARRAY; + + use Moose::Autobox::Array; -*does = \&Moose::Object::does; + use metaclass 'Moose::Meta::Class'; -package Moose::Autobox::ARRAY; -use base 'UNIVERSAL'; -use Moose; -with 'Moose::Autobox::Array'; + Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Array')); -*does = \&Moose::Object::does; + *does = \&Moose::Object::does; -package Moose::Autobox::HASH; -use base 'UNIVERSAL'; -use Moose; -with 'Moose::Autobox::Hash'; + package Moose::Autobox::HASH; -*does = \&Moose::Object::does; + use Moose::Autobox::Hash; -package Moose::Autobox::CODE; -use base 'UNIVERSAL'; -use Moose; -with 'Moose::Autobox::Code'; + use metaclass 'Moose::Meta::Class'; -*does = \&Moose::Object::does; + Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Hash')); + + *does = \&Moose::Object::does; + + package Moose::Autobox::CODE; + + use Moose::Autobox::Code; + + use metaclass 'Moose::Meta::Class'; + + Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Code')); + + *does = \&Moose::Object::does; + +} 1; @@ -58,30 +80,15 @@ __END__ =head1 NAME -Moose::Autobox - Autoboxed for her pleasure +Moose::Autobox - Autoboxed wrappers for Native Perl datatypes =head1 SYNOPOSIS use Moose::Autobox; - use autobox; 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) and uses some -shiney new technology (L) 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 @@ -102,31 +109,41 @@ the 'hooks' for others to add implementation too. =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 works out. At this point, I have high hopes for things -but only time (and more tests and code) will tell. - -=head1 ROLES - -This is a rough diagram of the roles involved to get our 4 -autoboxed types (SCALAR, ARRAY, HASH & CODE). - - +------------------------+-------------------------------+ - | Identity | Behavioral | - +------------------------+-------------------------------+ - | Item | | - | Undef | | - | Defined | | - | Scalar* <-|- String, Number <--+ | - | Ref | |-- Value | - | Array* <-|- List <------------+ | - | Hash* | | - | Code* | | - | | | - +------------------------+-------------------------------+ - - * indicates actual autoboxed types +Several people are using this module in serious applications and +it seems to be quite stable. The underlying technologies of L +and L 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 asks L to use the B namespace +prefix so as to avoid stepping on the toes of other L 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 + +=over 4 + +=item B + +This will mixin an additonal C<$role> into a certain C<$type>. The +types can be SCALAR, ARRAY, HASH or CODE. + +This can be used to add additional methods to the types, see the +F directory for some examples. + +=back =head1 TODO @@ -138,14 +155,6 @@ autoboxed types (SCALAR, ARRAY, HASH & CODE). =back -=head1 NOTES - - - String, Number & List are currently the only 'Value's. - - - Indexed is pretty much an interface, we probably will - need more of these (see Smalltalk Collection Trait - Refactoring) - =head1 BUGS All complex software has bugs lurking in it, and this module is no @@ -156,9 +165,17 @@ to cpan-RT. Stevan Little Estevan@iinteractive.comE +B + +Anders (Debolaz) Nor Berle + +Matt (mst) Trout + +renormalist + =head1 COPYRIGHT AND LICENSE -Copyright 2006 by Infinity Interactive, Inc. +Copyright 2006-2008 by Infinity Interactive, Inc. L