2 package Class::MOP::Method::Overload;
9 use base 'Class::MOP::Method';
14 unshift @args, 'body' if @args % 2 == 1;
17 confess "op is required"
18 unless exists $params{op};
20 return $class->SUPER::wrap(
21 name => "($params{op}",
28 return Class::MOP::Class->initialize($class)->new_object(@_)
29 if $class ne __PACKAGE__;
31 my $params = @_ == 1 ? $_[0] : {@_};
34 # inherited from Class::MOP::Method
35 'body' => $params->{body},
36 'associated_metaclass' => $params->{associated_metaclass},
37 'package_name' => $params->{package_name},
38 'name' => $params->{name},
39 'original_method' => $params->{original_method},
41 # defined in this class
42 'op' => $params->{op},