[www-offliberty.git] / lib / WWW / Offliberty.pm

package WWW::Offliberty;

use 5.014;
use strict;
use warnings;
use parent qw/Exporter/;
our $VERSION = '0.002';
our @EXPORT_OK = qw/off/;

use constant OFF_URL => 'http://offliberty.com/off54.php';

use HTML::TreeBuilder;
use HTTP::Tiny;

my $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ");

sub off{
	my ($url, @params) = @_;
	my $ret = $http->post_form(OFF_URL, {track => $url, @params});
	die $ret->{reason} unless $ret->{success};
	my $root = HTML::TreeBuilder->new_from_content($ret->{content});
	map { $_->attr('href') } $root->look_down(qw/_tag a class download/);
}

1;
__END__

=head1 NAME

WWW::Offliberty - interface to offliberty.com download service

=head1 SYNOPSIS

  use WWW::Offliberty qw/off/;
  my @links = off 'http://youtube.com/watch?v=something', video_file => 1;

=head1 DESCRIPTION

WWW::Offliberty is a simple interface to the offliberty.com download service.

It exports a single function: B<off>(I<url>, [I<argument> => value...]).
This function  that returns a list of download links,
as returned by the service.

=head1 SEE ALSO

L<http://offliberty.com>

=head1 AUTHOR

Marius Gavrilescu, E<lt>marius@ieval.roE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2013 by Marius Gavrilescu

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.18.1 or,
at your option, any later version of Perl 5 you may have available.


=cut
Commit	Line	Data
	1	package WWW::Offliberty;
	2
	3	use 5.014;
	4	use strict;
	5	use warnings;
	6	use parent qw/Exporter/;
	7	our $VERSION = '0.002';
	8	our @EXPORT_OK = qw/off/;
	9
	10	use constant OFF_URL => 'http://offliberty.com/off54.php';
	11
	12	use HTML::TreeBuilder;
	13	use HTTP::Tiny;
	14
	15	my $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ");
	16
	17	sub off{
	18	my ($url, @params) = @_;
	19	my $ret = $http->post_form(OFF_URL, {track => $url, @params});
	20	die $ret->{reason} unless $ret->{success};
	21	my $root = HTML::TreeBuilder->new_from_content($ret->{content});
	22	map { $_->attr('href') } $root->look_down(qw/_tag a class download/);
	23	}
	24
	25	1;
	26	__END__
	27
	28	=head1 NAME
	29
	30	WWW::Offliberty - interface to offliberty.com download service
	31
	32	=head1 SYNOPSIS
	33
	34	use WWW::Offliberty qw/off/;
	35	my @links = off 'http://youtube.com/watch?v=something', video_file => 1;
	36
	37	=head1 DESCRIPTION
	38
	39	WWW::Offliberty is a simple interface to the offliberty.com download service.
	40
	41	It exports a single function: B<off>(I<url>, [I<argument> => value...]).
	42	This function that returns a list of download links,
	43	as returned by the service.
	44
	45	=head1 SEE ALSO
	46
	47	L<http://offliberty.com>
	48
	49	=head1 AUTHOR
	50
	51	Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
	52
	53	=head1 COPYRIGHT AND LICENSE
	54
	55	Copyright (C) 2013 by Marius Gavrilescu
	56
	57	This library is free software; you can redistribute it and/or modify
	58	it under the same terms as Perl itself, either Perl version 5.18.1 or,
	59	at your option, any later version of Perl 5 you may have available.
	60
	61
	62	=cut