NAME

WWW::Mailinator - Perl extension for grabbing messages from mailinator.net

DESCRIPTION

WWW::Mailinator accesses 'your' mailinator.net mailbox and downloads the message(s).

SYNOPSIS

  use WWW::Mailinator;
  
  my $mailbox = WWW::Mailinator->new();
  $mailbox->login('b10m');
  
  if($mailbox->count) {
     foreach my $email ($mailbox->messages) {
        print $email->{from}.": ".$email->{subject}."\n";
        print $mailbox->retrieve($email->{num})."\n\n";
     }
  }

METHODS

new

new creates a new WWW::Mailinator object. It takes no options.

login

login seems like a strange word for this action, for there is no password needed. Yet in spite of a better name, here it is. The only thing required is a username of the mailbox you want to check.

After 'logging in', you can access the count, messages, and retrieve routines.

count

count will return the amount of messages found for the user that logged in.

messages

messages returns an array of all the messages found, except for the body of the email. From, Subject, URL, and Num(ber) can be accessed.

  $mailbox->login('dude');
  foreach my $email ($mailbox->messages) {
     printf("%03i <%s>: %s\n\t%s\n\n", $email->{num}, $email->{from},
                                       $email->{subject}, $email->{url});
  }

retrieve

retrieve takes one argument, the mail number, and returns the corresponding email.

SEE ALSO

LWP::Simple, HTML::TableExtract, http://www.mailinator.net/

AUTHOR

M. Blom, <b10m@perlmonk.org>

COPYRIGHT AND LICENSE

Copyright (C) 2004,2005 by M. Blom

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.