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.