Fayland 林 > WWW-Contact-0.47 > WWW::Contact::Base

Download:
WWW-Contact-0.47.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  2
View/Report Bugs
Module Version: 0.16   Source  

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.

syntax highlighting: