1 package Moose::Meta::Method::Overriden;
7 our $AUTHORITY = 'cpan:STEVAN';
9 use base 'Moose::Meta::Method';
16 my ( $class, %args ) = @_;
18 # the package can be overridden by roles
19 # it is really more like body's compilation stash
20 # this is where we need to override the definition of super() so that the
21 # body of the code can call the right overridden version
22 my $_super_package = $args{package} || $args{class}->name;
24 my $name = $args{name};
26 my $super = $args{class}->find_next_method_by_name($name);
29 || confess "You cannot override '$name' because it has no super method";
31 my $super_body = $super->body;
33 my $method = $args{method};
36 local @Moose::SUPER_ARGS = @_;
37 local $Moose::SUPER_BODY = $super_body;
41 # FIXME do we need this make sure this works for next::method?
42 # subname "${_super_package}::${name}", $method;
44 # FIXME store additional attrs
56 Moose::Meta::Method::Overriden - A Moose Method metaclass for overriden methods
60 This class implements method overriding logic for the L<Moose> C<override> keyword.
62 This involves setting up C<super> for the overriding body, and dispatching to
63 the correct parent method upon its invocation.
75 All complex software has bugs lurking in it, and this module is no
76 exception. If you find a bug please either email me, or add the bug
81 Yuval Kogman E<lt>nothingmuch@cpan.orgE<gt>
83 =head1 COPYRIGHT AND LICENSE
85 Copyright 2006-2008 by Infinity Interactive, Inc.
87 L<http://www.iinteractive.com>
89 This library is free software; you can redistribute it and/or modify
90 it under the same terms as Perl itself.