File Coverage

blib/lib/WWW/Domain/Registry/VeriSign.pm

Criterion	Covered	Total	%
statement	36	46	78.2
branch	2	4	50.0
condition			n/a
subroutine	8	11	72.7
pod	1	6	16.6
total	47	67	70.1

package WWW::Domain::Registry::VeriSign;

use strict;
use base qw/Class::Accessor/;
use warnings;
use Carp;
use WWW::Mechanize;

__PACKAGE__->mk_accessors(qw(mech));

our $VERSION = '0.02';

sub new {
    my ($class, $id, $password) = @_;
    my $self = bless {}, $class;
    $self->{reg} = {
                    base => 'https://nsmanager.verisign-grs.com',
                    id => $id,
                    password => $password,
                };
    $self->mech(WWW::Mechanize->new);
    $self;
}

sub login {
    my $self = shift;
    $self->mech->get($self->{reg}->{base} .'/ncc/login_page.do');
    $self->mech->submit_form(
                               form_number => 1,
                               fields => {
                                          logonname     => $self->{reg}->{id},
                                          logonpassword => $self->{reg}->{password},
                                      }
                           );
    $self->parse_login($self->mech->content);
}

sub parse_login {
    my ($self, $content) = @_;
    $content =~ m/currently logged in/;
}

sub account_view_page {
    my $self = shift;
    $self->mech->get($self->{reg}->{base} .'/ncc/account_view_page.do?MENU=Accounts');
    $self->parse_account_view_page($self->mech->content);
}

sub parse_account_view_page {
    my ($self, $content) = @_;
    my $content_from = qq();
    my $content_till = qq();
    return unless $content =~ /$content_from(.*?)$content_till/s;;
    $content = $1;
    my $data;
    while ($content =~ m{
        my($key, $val) = ($1, $2);
        $val =~ s/ ?/ /g;
        $val =~ s/^\s+//;
        $val =~ s/\s+$//;
        $val =~ s/\n+/\n/g;
        $data->{lc($key)} = $val =~ m/\n/ ? [ split m/\n/ , $val ] : $val;
    }

    return $data;
}

sub credit_balance_view_page {
    my $self = shift;
    $self->mech->get($self->{reg}->{base} .'/ncc/credit_balance_view_page.do?MENU=Finance');
    $self->parse_credit_balance_view_page($self->mech->content);
}

*parse_credit_balance_view_page = \&parse_account_view_page;

# Preloaded methods go here.

1;
__END__