Help for this page

Select Code to Download


  1. or download this
    package MyPackage;

use strict;
...
# accessor functions
sub imap { return shift->{'imap'}; }
sub config { return shift->{'config'}; }
  2. or download this
    use MyPackage;
my $pkg = MyPackage->new();
$pkg->load_config('my.conf');
$pkg->connect_to_imaphost();
  3. or download this
    my $msg_count = $pkg->imap()->message_count( ... );