Select Code to Download

package Foo;
sub new
...
{
  print "This is the correlation function!";
}

  my $x = new Foo(method => 'biscuit');

  if exists $self->{funcs}{$self->{method}}
  {
...
  {
    die "Sorry, the method $self->{method} isn't valid!";
  }

  #This says "Not a CODE referece at Foo.pm line..."
  $self->{funcs}{correlation} = \&$self->correlation;
...
  #And this says "Scalar found where operator expected at
  # Foo.pm line...
  $self->{funcs}{correlation} = \&($self->correlation);