1 package Moose::Meta::Method::Overriden;
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 $_super_package = $args{package} || $args{class}->name;
21 my $name = $args{name};
23 my $super = $args{class}->find_next_method_by_name($name);
26 || $class->throw_error("You cannot override '$name' because it has no super method", data => $name);
28 my $super_body = $super->body;
30 my $method = $args{method};
33 local @Moose::SUPER_ARGS = @_;
34 local $Moose::SUPER_BODY = $super_body;
38 # FIXME do we need this make sure this works for next::method?
39 # subname "${_super_package}::${name}", $method;
41 # FIXME store additional attrs
44 package_name => $args{class}->name,
57 Moose::Meta::Method::Overriden - A Moose Method metaclass for overriden methods
61 This class implements method overriding logic for the L<Moose> C<override> keyword.
63 This involves setting up C<super> for the overriding body, and dispatching to
64 the correct parent method upon its invocation.
76 All complex software has bugs lurking in it, and this module is no
77 exception. If you find a bug please either email me, or add the bug
82 Yuval Kogman E<lt>nothingmuch@cpan.orgE<gt>
84 =head1 COPYRIGHT AND LICENSE
86 Copyright 2006-2008 by Infinity Interactive, Inc.
88 L<http://www.iinteractive.com>
90 This library is free software; you can redistribute it and/or modify
91 it under the same terms as Perl itself.