X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoo.pm;h=f188c1259ed7bfdb7ba1352435d8b889ba0e6e52;hb=b682218c3bf8133f99d55af4b58e7698e58a4fcd;hp=32a2d3ebc1489969521a8d26f20c510b1f97d1ef;hpb=2824b1d3aa381868ce5c9baf10007a1fc0345730;p=gitmo%2FRole-Tiny.git diff --git a/lib/Moo.pm b/lib/Moo.pm index 32a2d3e..f188c12 100644 --- a/lib/Moo.pm +++ b/lib/Moo.pm @@ -4,7 +4,7 @@ use strictures 1; use Moo::_Utils; use B 'perlstring'; -our $VERSION = '0.009010'; # 0.9.10 +our $VERSION = '0.009013'; # 0.9.13 $VERSION = eval $VERSION; our %MAKERS; @@ -20,7 +20,7 @@ sub import { @{*{_getglob("${target}::ISA")}{ARRAY}} = @_; }; *{_getglob("${target}::with")} = sub { - require Moo::Role; + { local $@; require Moo::Role; } die "Only one role supported at a time by with" if @_ > 1; Moo::Role->apply_role_to_package($target, $_[0]); }; @@ -28,7 +28,7 @@ sub import { *{_getglob("${target}::has")} = sub { my ($name, %spec) = @_; ($MAKERS{$target}{accessor} ||= do { - require Method::Generate::Accessor; + { local $@; require Method::Generate::Accessor; } Method::Generate::Accessor->new })->generate_method($target, $name, \%spec); $class->_constructor_maker_for($target) @@ -36,14 +36,14 @@ sub import { }; foreach my $type (qw(before after around)) { *{_getglob "${target}::${type}"} = sub { - require Class::Method::Modifiers; + { local $@; require Class::Method::Modifiers; } _install_modifier($target, $type, @_); }; } { no strict 'refs'; @{"${target}::ISA"} = do { - require Moo::Object; ('Moo::Object'); + { local $@; require Moo::Object; } ('Moo::Object'); } unless @{"${target}::ISA"}; } } @@ -52,8 +52,11 @@ sub _constructor_maker_for { my ($class, $target, $select_super) = @_; return unless $MAKERS{$target}; $MAKERS{$target}{constructor} ||= do { - require Method::Generate::Constructor; - require Sub::Defer; + { + local $@; + require Method::Generate::Constructor; + require Sub::Defer; + } my ($moo_constructor, $con); if ($select_super && $MAKERS{$select_super}) { @@ -79,7 +82,7 @@ sub _constructor_maker_for { ->new( package => $target, accessor_generator => do { - require Method::Generate::Accessor; + { local $@; require Method::Generate::Accessor; } Method::Generate::Accessor->new; }, construction_string => ( @@ -97,6 +100,9 @@ sub _constructor_maker_for { } 1; +=pod + +=encoding utf-8 =head1 NAME @@ -188,14 +194,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 -=head2 BUILDALL +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. -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. +=head2 DEMOLISH + +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 @@ -268,6 +303,25 @@ Coerce does not require C to be defined. L +=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 Takes a coderef which will get called any time the attribute is set. Coderef @@ -323,6 +377,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 @@ -394,6 +460,27 @@ 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) @@ -412,6 +499,10 @@ 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