sub get_overload_list {
my $self = shift;
- my $map = $self->_overload_map;
- return map { $self->_wrap_overload($_, $map->{$_}) } keys $map;
+ return keys $self->_overload_map;
}
-sub get_overloaded_operators {
+sub get_all_overloaded_operators {
my $self = shift;
- return keys $self->_overload_map;
+ my $map = $self->_overload_map;
+ return map { $self->_wrap_overload($_, $map->{$_}) } keys $map;
}
sub has_overloaded_operator {