File Coverage

blib/lib/WWW/RMDown.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch	0	2	0.0
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	26	48	54.1

package WWW::RMDown;

use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use HTML::TagParser;
use autodie qw/open/;

our $VERSION = 0.01;

sub new
{
    my ($class, %cfg) = @_;
    my $ua = LWP::UserAgent->new (agent => 'Mozilla/5.0', %cfg);
    $ua->default_header ('Origin' => 'www.rmdown.com');

    bless {
        'ua' => $ua
    }, $class;
}

sub fetch
{
    my ($self, $hash) = @_;
    my $ua   = $self->{ua};
    my %form = ();
    my $contents;
    my $sourceURL = 'http://www.rmdown.com/link.php?hash=' . $hash;

    my $html = HTML::TagParser->new ($sourceURL);
    $ua->default_header ('Referrer' => $sourceURL);

    foreach my $input ($html->getElementsByTagName('input'))
    {
        my $name  = $input->attributes->{'name'};
        my $value = $input->attributes->{'value'};

        $form{$name} = $value;
    }

    my $r = $ua->post ('http://www.rmdown.com/download.php', \%form);
    $contents = $r->decoded_content if ($r->is_success);

    return $contents;
}

1;

__END__