Help for this page

Select Code to Download

Select or download this

eval {
  require MQSeries;
  MQSeries->import;
};
$@ and warn $@;

Select or download this

sub cond_use {
  (my $module = shift().".pm") =~ s<::></>g;
...
  $@ and warn $@;
}
cond_use "MQSeries";