File Coverage

blib/lib/Webservice/Purgomalum/API.pm

Criterion	Covered	Total	%
statement	15	34	44.1
branch	0	6	0.0
condition			n/a
subroutine	5	11	45.4
pod	2	6	33.3
total	22	57	38.6

use strict;
use warnings;

package Webservice::Purgomalum::API;

our $VERSION = 1.001;
use HTTP::Tiny;
use Carp;
use Data::Dumper;

my $base_url = 'https://www.purgomalum.com/service/';

sub new{
    my ($package) = @_;
    my $self = {
        'ua' => HTTP::Tiny->new(),
        'debug'=> 0,
    };
    bless $self, $package;
    return $self;
}

sub contains_profanity{
    my ($self, %params) = @_;
    return $self->fetch('containsprofanity?', %params);
}

sub get{
    my ($self, %params) = @_;
    return $self->fetch('plain?', %params);
}

sub fetch{
    my ($self, $endpoint, %options) = @_;
    my $params = $self->ua->www_form_urlencode( \%options );
    my $response = $self->ua->get($base_url.$endpoint.$params) or croak "$!";

    print STDERR Dumper($response) if $self->{debug};

    return $response->{content};
}

sub ua{
    my $self = shift;
    return $self->{ua};
}

sub debug{
    my ($self, $toggle) = @_;
    if (defined $toggle){
        $self->{debug} = $toggle;
    }
    return $self;
}
1;


__END__