view release on metacpan or  search on metacpan

lib/WWW/Domain/Registry/VeriSign.pm  view on Meta::CPAN

    my $content_till = qq(</div>);
    return unless $content =~ /$content_from(.*?)$content_till/s;;
    $content = $1;
    my $data;
    while ($content =~ m{<td class="alt3"[^>]*>([^:]+):</td>\n\s+<td class="alt4"[^>]*>([^<]+)</td>\n}ig) {
        my($key, $val) = ($1, $2);
        $val =~ s/&nbsp;?/ /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);
}