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.