NAME

WWW::Contact::Base - Base module for WWW::Contact::*

SYNOPSIS

            

              
              
use WWW::Contact::MyMail;
use Moose;
extends 'WWW::Contact::Base';
sub get_contacts {
    my ($self, $email, $password) = @_;
     
    # reset
    $self->errstr(undef);
    my @contacts;
     
    my $ua = $self->ua;
    $self->debug("start get_contacts from MyMail");
     
    # get contacts
     
    return wantarray ? @contacts : \@contacts;
}
            
          

DESCRIPTION

This module is mainly for you to write your own WWW::Contact::* (and used in my WWW::Contact::)

METHODS

ua

an instance of WWW::Mechanize

            

              
              
$self->ua->get('http://www.google.com');
            
          

If u want to use WWW::Mechanize::* instead of WWW::Mechanize, try

            

              
              
extends 'WWW::Contact::Base';
has '+ua_class' => ( default => 'WWW::Mechanize::GZip' );
            
          

verbose

turn on debug, default is off

            

              
              
$self->verbose(1); # turn on
$self->verbose(0); # turn off
            
          

debug

write debug info depends on $self->verbose

            

              
              
$self->debug("start get_contacts from MyMail");
            
          

debug_to_file($file)

Dumper(\$self->ua) to $file

            

              
              
$self->debug_to_file($file)
            
          

get

a wrapper of $self->ua->get, with $resp->is_success check

            

              
              
$self->get('http://www.google.com');
            
          

submit_form

a wrapper of $self->ua->submit_form, with $resp->is_success check

            

              
              
$self->submit_form(
    form_number => 1,
    fields      => {
        Email  => $email,
        Passwd => $password,
    }
);
            
          

SEE ALSO

WWW::Contact, WWW::Mechanize, Moose

AUTHOR

Fayland Lam, <fayland at gmail.com>

COPYRIGHT & LICENSE

Copyright 2008 Fayland Lam, all rights reserved.

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