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.