[sf-perl] dynamic use command
Randy J. Ray
rjray at blackperl.com
Thu Apr 3 18:24:24 PDT 2008
I've had this happen before, too. What you need to do is wrap the whole
statement in a string:
eval {
"use Net::SMTP::SSL";
};
if ($@) {
print "$net_smtp_ssl is missing\n";
exit;
}
You don't actually need the second "use". The code is now loaded and available
to you. By using the eval, you have kept the application from stopping in the
event that the module isn't available.
Randy
--
===============================================================================
Randy J. Ray rjray at blackperl.com
Sunnyvale, CA http://www.rjray.org
http://www.svsm.org
More information about the SanFrancisco-pm
mailing list