File Coverage

blib/lib/WWW/TheBestSpinner.pm

Criterion	Covered	Total	%
statement	24	73	32.8
branch	0	20	0.0
condition	0	12	0.0
subroutine	8	20	40.0
pod	8	10	80.0
total	40	135	29.6

package WWW::TheBestSpinner;

use strict;
use 5.008_005;
our $VERSION = '0.01';

use Carp 'croak';
use LWP::UserAgent;
use URI::Escape 'uri_escape';
use MIME::Base64;
use PHP::Serialization qw(serialize unserialize);

use vars qw/$errstr/;
sub errstr { $errstr }

sub new {
    my $class = shift;
    my $args = scalar @_ % 2 ? shift : { @_ };

    $args->{username} or croak 'username is required';
    $args->{password} or croak 'password is required';

    $args->{__url} = "http://thebestspinner.com/api.php";

    bless $args, $class;
}

sub _authenticate {
    my ($self) = @_;

    return 1 if $self->{session};

    my $resp = LWP::UserAgent->new->post($self->{__url}, [
        action => 'authenticate',
        'format' => 'php',
        'username' => $self->{username},
        'password' => $self->{password},
    ]);

    unless ($resp->is_success) {
        $errstr = $resp->status_line;
        return;
    }

    my $result = unserialize($resp->content);
    if ($result->{success} eq 'true') {
        $self->{session} = $result->{session};
        return 1;
    } else {
        $errstr = $result->{error};
        return;
    }
}

sub rewriteText {
    my ($self, $text, $protectedterms) = @_;
    $self->_send_request('rewriteText', [
       text => $text,
       protectedterms => $protectedterms || '',
    ]);
}

sub rewriteSentences {
	my ($self, $text) = @_;
    $self->_send_request('rewriteSentences', [
       text => $text,
    ]);
}

sub randomSpin {
	my ($self, $text) = @_;
    $self->_send_request('randomSpin', [
       text => $text,
    ]);
}

sub identifySynonyms {
    my ($self, $text, $maxsyns, $protectedterms) = @_;
    $self->_send_request('identifySynonyms', [
       text => $text,
       maxsyns => $maxsyns || 3,
       protectedterms => $protectedterms || '',
    ]);
}

sub replaceEveryonesFavorites {
    my ($self, $text, $maxsyns, $quality, $protectedterms) = @_;
    $self->_send_request('replaceEveryonesFavorites', [
       text => $text,
       maxsyns => $maxsyns || 3,
       quality => $quality || 1,
       protectedterms => $protectedterms || '',
    ]);
}

sub textCompareUniqueness {
	my ($self, $text1, $text2) = @_;
    $self->_send_request('textCompareUniqueness', [
       text1 => $text1,
       text2 => $text2,
    ]);
}

sub textCompare {
	my ($self, $text1, $text2) = @_;
    $self->_send_request('textCompare', [
       text1 => $text1,
       text2 => $text2,
    ]);
}

sub apiQueries {
     my ($self) = @_;
     $self->_send_request('apiQueries');
}

sub _send_request {
    my ($self, $action, $post) = @_;

    $self->_authenticate or return;
    unshift @$post, (action => $action, format => 'php', session => $self->{session});

    my $url = $self->{__url};
    my $resp = LWP::UserAgent->new->post($url, $post);
#    use Data::Dumper; print Dumper(\$resp);

    unless ($resp->is_success) {
        $errstr = $resp->status_line;
        return;
    }

    my $data = unserialize($resp->content);

    if ($data->{success} eq 'true') {
        return $data->{output} if exists $data->{output};
        return $data;
    } else {
        $errstr = $data->{error};
        return;
    }
}

1;
__END__