Unfortunately in the real code, it looks like a call doesn't include $self as an argument. Apologies for not making that need clear earlier. For example, making correlation look like:

sub correlation
{
  my($self, @args) = @_;
  print "self is $self, there are @args args\n";
}
[download]

and creating a new function bar that looks like:

sub bar
{
  my $self = shift;
  $self->{funcs}{$self->{method}}();
}
[download]

When we do:

my $x = new Foo;
$x->bar;
[download]

the output is errors about uninitialized values, and self is , there are  args

dan