Select Code to Download

use Module::Load::Conditional qw[can_load check_install requires];

$Module::Load::Conditional::VERBOSE = 1;
...
print $encryption_avail
      ? "All required crypto modules found and loaded: Encryption avai
+lable\n"
      : "Encryption disabled: required modules not found\n";

sub decrypt
{
    my ($message, $cipher, $key) = @_;
...

    return (1);
}

use Module::Loaded;
foreach my $mk ('Compress::Zlib', 'Crypt::Blowfish', 'Crypt::CBC', 'Cr
+ypt::DH',
                'Digest::SHA1', 'Math::BigInt::GMP', 'Math::BigInt', '
+MIME::Base64')
{
    mark_as_loaded($mk);
}

All required crypto modules found and loaded: Encryption available
'Compress::Zlib' already marked as loaded ('/usr/lib/perl5/5.10.0/i686
+-linux-thread-multi-64int-ld/Compress/Zlib.pm') at ./icbm.conditional
+-load line 225
'Crypt::Blowfish' already marked as loaded ('/usr/lib/perl5/site_perl/
+5.10.0/i686-linux-thread-multi-64int-ld/Crypt/Blowfish.pm') at ./icbm
+.conditional-load line 225
...
'Math::BigInt::GMP' already marked as loaded ('/usr/lib/perl5/site_per
+l/5.10.0/i686-linux-thread-multi-64int-ld/Math/BigInt/GMP.pm') at ./i
+cbm.conditional-load line 225
'Math::BigInt' already marked as loaded ('/usr/lib/perl5/5.10.0/Math/B
+igInt.pm') at ./icbm.conditional-load line 225
'MIME::Base64' already marked as loaded ('/usr/lib/perl5/5.10.0/i686-l
+inux-thread-multi-64int-ld/MIME/Base64.pm') at ./icbm.conditional-loa
+d line 225