File Coverage

blib/lib/WebService/Pornhub.pm

Criterion	Covered	Total	%
statement	20	96	20.8
branch	0	62	0.0
condition	0	23	0.0
subroutine	7	17	41.1
pod	9	9	100.0
total	36	207	17.3

package WebService::Pornhub;
use v5.14.0;
use Moo;
use namespace::clean;
use Function::Parameters;
use URI;
use HTML::Entities qw/decode_entities/;
use LWP::UserAgent;

with 'WebService::Client';

our $VERSION = "0.02";

has '+base_url' => (
    default => 'https://www.pornhub.com/webmasters',
);

has '+ua' => (
    is => 'ro',
    lazy => 1,
    default => sub {
        LWP::UserAgent->new(
            agent => 'WebService::Pornhub/' . $VERSION,
            timeout => shift->timeout,
        );
    },
);

method search(%params) {
    my $res = $self->get( $self->_uri( '/search', %params ) );
    return $res ? $res->{videos} : undef;
}

method get_video(%params) {
    my $res = $self->get( $self->_uri( '/video_by_id', %params ) );
    return $res ? $res->{video} : undef;
}

method get_embed_code(%params) {
    my $res = $self->get( $self->_uri( '/video_embed_code', %params ) );
    return undef unless $res;
    my $embed = $res->{embed} or return undef;
    $embed->{code} = decode_entities( $embed->{code} );
    return $embed;
}

method get_deleted_videos(%params) {
    $params{page} ||= 1;
    my $res = $self->get( $self->_uri( '/deleted_videos', %params ) );
    return $res ? $res->{videos} : undef;
}

method is_video_active(%params) {
    my $res = $self->get( $self->_uri( '/is_video_active', %params ) );
    return $res ? $res->{active} : undef;
}

method get_categories() {
    my $res = $self->get('/categories');
    return $res ? $res->{categories} : undef;
}

method get_tags(%params) {
    my $res = $self->get( $self->_uri( '/tags', %params ) );
    return $res ? $res->{tags} : undef;
}

method get_stars() {
    my $res = $self->get('/stars');
    return $res ? $res->{stars} : undef;
}

method get_stars_detailed() {
    my $res = $self->get('/stars_detailed');
    return $res ? $res->{stars} : undef;
}

method _uri( $path, %params ) {
    my $uri = URI->new($path);
    for my $key ( keys %params ) {
        if ( ref $params{$key} eq 'ARRAY' ) {
            my $v = delete $params{$key};
            $params{$key} = join ',', @$v;
        }
    }
    $uri->query_form(%params);
    return $uri->as_string;
}

1;

__END__