NAME

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

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

AUTHOR

COPYRIGHT & LICENSE

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