unshift @args, 'body' if @args % 2 == 1;
my %params = @args;
- confess "op is required"
- unless exists $params{op};
+ confess "operator is required"
+ unless exists $params{operator};
return $class->SUPER::wrap(
- name => "($params{op}",
+ name => "($params{operator}",
%params,
);
}
'original_method' => $params->{original_method},
# defined in this class
- 'op' => $params->{op},
+ 'operator' => $params->{operator},
} => $class;
}