X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoo.pm;h=aea43e180c454f1f693dcd7cf9393ba4c3c9b307;hb=faa9ce11cefee1e6f7800ec1dbe561717c162161;hp=2c02cf26e66c768b968070208b9a6e9d1f96a45c;hpb=c45702917a553f4c038f0fc77869380b57da4742;p=gitmo%2FRole-Tiny.git diff --git a/lib/Moo.pm b/lib/Moo.pm index 2c02cf2..aea43e1 100644 --- a/lib/Moo.pm +++ b/lib/Moo.pm @@ -2,8 +2,9 @@ package Moo; use strictures 1; use Moo::_Utils; +use B 'perlstring'; -our $VERSION = '0.009004'; # 0.9.4 +our $VERSION = '0.009013'; # 0.9.13 $VERSION = eval $VERSION; our %MAKERS; @@ -74,7 +75,6 @@ sub _constructor_maker_for { $moo_constructor = 1; # no other constructor, make a Moo one } }; - require Moo::_mro unless $moo_constructor; Method::Generate::Constructor ->new( package => $target, @@ -82,8 +82,14 @@ sub _constructor_maker_for { require Method::Generate::Accessor; Method::Generate::Accessor->new; }, - ($moo_constructor ? () - : (construction_string => '$class->next::method(@_)')) + construction_string => ( + $moo_constructor + ? ($con ? $con->construction_string : undef) + : ('$class->'.$target.'::SUPER::new(@_)') + ), + subconstructor_generator => ( + $class.'->_constructor_maker_for($class,'.perlstring($target).')' + ), ) ->install_delayed ->register_attribute_specs(%{$con?$con->all_attribute_specs:{}}) @@ -91,21 +97,14 @@ sub _constructor_maker_for { } 1; +=pod + +=encoding utf-8 =head1 NAME Moo - Minimalist Object Orientation (with Moose compatiblity) -=head1 WARNING WARNING WARNING - -This is a 0.9 release because we're fairly sure it works. For us. Until it's -tested in the wild, we make no guarantees it also works for you. - -If this module does something unexpected, please submit a failing test. - -But if it eats your cat, sleeps with your boyfriend, or pushes grandma down -the stairs to save her from the terrible secret of space, it's not our fault. - =head1 SYNOPSIS package Cat::Food; @@ -192,14 +191,43 @@ or =head2 BUILDARGS -This feature from Moose is not yet supported. + around BUILDARGS => sub { + my $orig = shift; + my ( $class, @args ) = @_; + + unshift @args, "attr1" if @args % 2 == 1; + + return $class->$orig(@args); + }; + + Foo::Bar->new( 3 ); + +The default implementation of this method accepts a hash or hash reference of +named parameters. If it receives a single argument that isn't a hash reference +it throws an error. + +You can override this method in your class to handle other types of options +passed to the constructor. + +This method should always return a hash reference of named options. + +=head2 BUILD + +Define a C method on your class and the constructor will automatically +call the C method from parent down to child after the object has +been instantiated. Typically this is used for object validation or possibly +logging. -=head2 BUILDALL +=head2 DEMOLISH -Don't override (or probably even call) this method. Instead, you can define -a C method on your class and the constructor will automatically call the -C method from parent down to child after the object has been -instantiated. Typically this is used for object validation or possibly logging. +If you have a C method anywhere in your inheritance hierarchy, +a C method is created on first object construction which will call +C<< $instance->DEMOLISH($in_global_destruction) >> for each C +method from child upwards to parents. + +Note that the C method is created on first construction of an object +of your class in order to not add overhead to classes without C +methods; this may prove slightly surprising if you try and define your own. =head2 does @@ -261,10 +289,6 @@ L =item * coerce -This Moose feature is not yet supported - -=begin hide - Takes a coderef which is meant to coerce the attribute. The basic idea is to do something like the following: @@ -272,9 +296,28 @@ do something like the following: $_[0] + 1 unless $_[0] % 2 }, +Coerce does not require C to be defined. + L -=end hide +=item * handles + +Takes a string + + handles => 'RobotRole' + +Where C is a role (L) that defines an interface which +becomes the list of methods to handle. + +Takes a list of methods + + handles => [ qw( one two ) ] + +Takes a hashref + + handles => { + un => 'one', + } =item * trigger @@ -331,6 +374,18 @@ another attribute to be set. B. Set this if the attribute must be passed on instantiation. +=item * reader + +The value of this attribute will be the name of the method to get the value of +the attribute. If you like Java style methods, you might set this to +C + +=item * writer + +The value of this attribute will be the name of the method to set the value of +the attribute. If you like Java style methods, you might set this to +C + =item * weak_ref B. Set this if you want the reference that the attribute contains to @@ -401,3 +456,58 @@ manually set all the options it implies. C is not supported since the author considers it a bad idea. C is not supported since it's a very poor replacement for POD. + +Handling of warnings: when you C we enable FATAL warnings. The nearest +similar invocation for L would be: + + use Moose; + use warnings FATAL => "all"; + +Additionally, L supports a set of attribute option shortcuts intended to +reduce common boilerplate. The set of shortcuts is the same as in the L +module L. So if you: + + package MyClass; + use Moo; + +The nearest L invocation would be: + + package MyClass; + + use Moose; + use warnings FATAL => "all"; + use MooseX::AttributeShortcuts; + +=head1 AUTHOR + +mst - Matt S. Trout (cpan:MSTROUT) + +=head1 CONTRIBUTORS + +dg - David Leadbeater (cpan:DGL) + +frew - Arthur Axel "fREW" Schmidt (cpan:FREW) + +hobbs - Andrew Rodland (cpan:ARODLAND) + +jnap - John Napiorkowski (cpan:JJNAPIORK) + +ribasushi - Peter Rabbitson (cpan:RIBASUSHI) + +chip - Chip Salzenberg (cpan:CHIPS) + +ajgb - Alex J. G. Burzyński (cpan:AJGB) + +doy - Jesse Luehrs (cpan:DOY) + +=head1 COPYRIGHT + +Copyright (c) 2010-2011 the Moo L and L +as listed above. + +=head1 LICENSE + +This library is free software and may be distributed under the same terms +as perl itself. + +=cut