1 package Moose::Meta::Method::Augmented;
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
10 use base 'Moose::Meta::Method';
13 my ( $class, %args ) = @_;
15 # the package can be overridden by roles
16 # it is really more like body's compilation stash
17 # this is where we need to override the definition of super() so that the
18 # body of the code can call the right overridden version
19 my $name = $args{name};
20 my $meta = $args{class};
22 my $super = $meta->find_next_method_by_name($name);
25 || $meta->throw_error("You cannot augment '$name' because it has no super method", data => $name);
27 my $_super_package = $super->package_name;
28 # BUT!,... if this is an overridden method ....
29 if ($super->isa('Moose::Meta::Method::Overridden')) {
30 # we need to be sure that we actually
31 # find the next method, which is not
32 # an 'override' method, the reason is
33 # that an 'override' method will not
34 # be the one calling inner()
35 my $real_super = $meta->_find_next_method_by_name_which_is_not_overridden($name);
36 $_super_package = $real_super->package_name;
39 my $super_body = $super->body;
41 my $method = $args{method};
44 local $Moose::INNER_ARGS{$_super_package} = [ @_ ];
45 local $Moose::INNER_BODY{$_super_package} = $method;
49 # FIXME store additional attrs
52 package_name => $meta->name,
65 Moose::Meta::Method::Augmented - A Moose Method metaclass for augmented methods
69 This class implements method augmentation logic for the L<Moose>
72 The augmentation subroutine reference will be invoked explicitly using
73 the C<inner> keyword from the parent class's method definition.
77 C<Moose::Meta::Method::Augmented> is a subclass of L<Moose::Meta::Method>.
83 =item B<< Moose::Meta::Method::Augmented->new(%options) >>
85 This constructs a new object. It accepts the following options:
91 The metaclass object for the class in which the augmentation is being
92 declared. This option is required.
96 The name of the method which we are augmenting. This method must exist
97 in one of the class's superclasses. This option is required.
101 The subroutine reference which implements the augmentation. This
110 All complex software has bugs lurking in it, and this module is no
111 exception. If you find a bug please either email me, or add the bug
116 Yuval Kogman E<lt>nothingmuch@cpan.orgE<gt>
118 =head1 COPYRIGHT AND LICENSE
120 Copyright 2006-2009 by Infinity Interactive, Inc.
122 L<http://www.iinteractive.com>
124 This library is free software; you can redistribute it and/or modify
125 it under the same terms as Perl itself.