File Coverage

blib/lib/WWW/BugMeNot.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	16	40	40.0

package WWW::BugMeNot;
require Exporter;

our @ISA    = qw(Exporter);
our @EXPORT = qw(password);
our $VERSION = '0.02';

use strict;
use warnings;
use LWP::Simple;
use HTML::TokeParser;


sub password {
    my $url = $_[0];
    my $retrieved_bugmenot_page = &retrieve_bugmenot_url($url);
    my @userpass = &parse_bugmenot_url($retrieved_bugmenot_page);
    return @userpass;
}


sub retrieve_bugmenot_url {
    my $url = $_[0];
    my $retrieved_page = get ("http://bugmenot.com/view.php?url=$url") or die("Could not retrieve http://bugmenot.com/view.php?url=$url");
    return $retrieved_page;
}


sub parse_bugmenot_url {
    my $page = $_[0];
    my $stream = HTML::TokeParser->new(\$page) or die("Parsing Error: $!");
    $stream -> get_tag("dd");
    my @userpass;
    $userpass[0] = $stream -> get_text("br");
    $userpass[1] = $stream -> get_text("/dd");
    return @userpass;
}



1;
__END__