package Foo;
sub new
{
  my($pkg, %args) = @_;
  my $self =
  {
    method => 'correlation',
    %args
  };

  $self->{funcs}{correlation} = \&$self->correlation;

  return bless $self, $pkg;
}

sub correlation
{
  print "This is the correlation function!";
}