http://qs321.pair.com?node_id=1166308


in reply to naming anonymous subroutines inner variables

and $self->{ftest}() is the code that would execute it
That should be $self->{ftest}($self)

Update alternatively you can get rid of my $self = shift;