sub get_mref {
  my ($self) = @_;
  my $coderef = \&some_method;
  return sub { $self->$coderef(@_) };
}

$self->get_mref->(@args);