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.