sub autoload_symbol { my ($self, $symbol, @extra)= @_; my %memory; my $home= $self->{'..home'}; my $thunk= sub { my $retval= eval { my $caller= _calling_client(); # so I don't have to figure it out multiple times my $f= $memory{$caller}; unless (defined $f) { $f= $memory{$caller}= $self->resolve ($caller, $home->VERSION(undef,$caller), '&'.$symbol, [@extra]); } goto &$f; ######### Error line is Here <<<<<<<<< }; if ($@) { carp "(Exporter::VA) Cannot redirect to versioned function ($@)"; } return $retval; }; no strict 'refs'; *{"${home}::$symbol"}= $thunk; }