Re: Calling functions from modules



I have been able to answer my own question. The solution is to pass a
reference back to the telnet_set_result() function.

use MetaMon;
use strict;
my $reffn = \&telnet_set_result;
MetaMon::friendlyDie ("oneStringParameter", $reffn);


package MetaMon;
use string;
sub friendlyDie
{
my $errorMessage = $_[0];
my $reffn = $_[1];
#irrelevant code
&$reffn("oneStringParameter");
exit;


}


1;

.