NAME

WWW::SpinnerChief - SpinnerChief API

VERSION

version 0.01

SYNOPSIS

use WWW::SpinnerChief;

my $sc = WWW::SpinnerChief->new(
    apikey => 'blabla',
    username => 'fayland',
    password => 'password',
);

my $x = $sc->quota_left() or die $sc->errstr;
print "quota_left: $x\n";

my $spintax = $sc->text_with_spintax('Hello, what is your name? - ♠ ♣ ♦ ‾ ←') or die $sc->errstr;
print "spintax: $spintax\n";

my $unique_variation = $sc->unique_variation('This is a great software') or die $sc->errstr;
print "unique_variation: $unique_variation\n";

DESCRIPTION

http://developer.spinnerchief.com/API_Document.aspx

METHODS

CONSTRUCTION

use WWW::SpinnerChief;

my $sc = WWW::SpinnerChief->new(
    apikey => 'blabla',
    username => 'fayland',
    password => 'password',
);

• apikey

• username

• password

  required

quota_used

quota_left

# querytimes=1
my $x = $sc->quota_used() or die $sc->errstr;
print "quota_used: $x\n";

# querytimes=2
my $x = $sc->quota_left() or die $sc->errstr;
print "quota_left: $x\n";

text_with_spintax($text, $params)

spintype = 0

my $spintax = $sc->text_with_spintax('Hello, what is your name? - ♠ ♣ ♦ ‾ ←') or die $sc->errstr;
print "spintax: $spintax\n";

unique_variation($text, $params)

spintype = 1

my $unique_variation = $sc->unique_variation('This is a great software') or die $sc->errstr;
print "unique_variation: $unique_variation\n";

my $new_text = $sc->unique_variation($text, {
    tagprotect => '[]',
    spinhtml => 1,
}) or die $sc->errstr;

AUTHOR

Fayland Lam <fayland@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Fayland Lam.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.