No description, website, or topics provided.
Switch branches/tags
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
examples
lib/WWW/Pastebin/PastebinCom
t
.gitignore
Changes
README.md
dist.ini

README.md

NAME

WWW::Pastebin::PastebinCom::API - implementation of pastebin.com API

SYNOPSIS

use WWW::Pastebin::PastebinCom::API;


##### Simple paste with all optional args at default values

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

print $bin->paste('Stuff to paste') || die "$bin";


##### Private paste with all optional args set

$bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

$bin->paste(
    'Stuff to paste',

    title => 'Title for your paste',
    private => 1,       # set paste as a private paste
    format => 'perl',   # Perl syntax highlighting
    expiry => 'awhile', # expire the paste after 1 week
) or die "$bin";

print "$bin\n";


##### Retrieve the content of an existing paste

$bin = WWW::Pastebin::PastebinCom::API->new;
print $bin->get_paste('http://pastebin.com/YpTmWJG6')
    || die "$bin";


##### Delete one of user's private pastes

$bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

$bin->delete_paste('http://pastebin.com/YpTmWJG6')
    or die "$bin";


##### List trending pastes

$bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

my $trends = $bin->list_trends
    or die "$bin";

use Data::Dumper;
print Dumper $trends;


##### List user's private pastes

$bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

my $pastes = $bin->list_user_pastes
    or die "$bin";

use Data::Dumper;
print Dumper $pastes;


##### List user's info

$bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

my $info = $bin->get_user_info
    or die "$bin";

use Data::Dumper;
print Dumper $info;

DESCRIPTION

This module is an implementation of the pastebin.com API (http://pastebin.com/api). The API allows creation of public, unlisted, and private pastes; deletion of private pastes; listing of trending pastes and private pastes; and retrieval of a paste's raw content (the last one is not part of the API, but is nevertheless implemented in this module).

NOTE ON GETTING PASTES: Despite tons of patently useless stuff the API provides, it doesn't offer anything but the raw contents of the paste (not even that, if we're to get technical). If your main aim is to retrieve pastes and/or retrieve info about pastes (e.g. expiry date, highlight, etc), then this module will not help you. See WWW::Pastebin::PastebinCom::Retrieve for that task.

API KEY NEEDED

The only method that doesn't require an API key is ->get_paste(). To use any other features of this module you will need to obtain an API key from pastebin.com. Simply create an account on pastebin.com, login, then visit (http://pastebin.com/api) and the key will be listed somewhere in the second section on the page. The key will look something like this: a3767061e0e64fef6c266126f7e588f4.

METHODS

new

# no API key
my $bin = WWW::Pastebin::PastebinCom::API->new;

# API key and setting timeout
my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key =>  'a3767061e0e64fef6c266126f7e588f4',
    user_key => '4fd751dc94f0b62c489b2c7720e0d240',
    timeout => 60,
);

# no API key and setting scustom UA
my $bin = WWW::Pastebin::PastebinCom::API->new(
    ua => LWP::UserAgent->new(
        timeout => $args{timeout},
        agent   => 'Mozilla/5.0 (X11; Ubuntu; Linux i686; rv:21.0)'
                    . ' Gecko/20100101 Firefox/21.0',
    )
);

Creates and returns a new WWW::Pastebin::PastebinCom::API object. All arguments are optional and are described below.

api_key

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key =>  'a3767061e0e64fef6c266126f7e588f4',
);

Optional. Takes pastebin.com's API key as a string. By default is not specified.

You don't have to specify the key here and can use the ->api_key() accessor method instead, to set the key prior to calling module methods.

The only method that doesn't require an API key is ->get_paste(). To use any other features of this module you will need to obtain an API key from pastebin.com. Simply create an account on pastebin.com, login, then visit (http://pastebin.com/api) and the key will be listed somewhere in the second section on the page. The key will look something like this: a3767061e0e64fef6c266126f7e588f4.

user_key

my $bin = WWW::Pastebin::PastebinCom::API->new(
    user_key => '4fd751dc94f0b62c489b2c7720e0d240',
);

Optional. Takes a user key string as a value. By default is not specified.

To create, delete, or list private pastes, you will need a user key. To obtain one, see ->get_user_key() method. Pastebin.com's API says these keys don't expire, so I would expect that you can print one user key from ->get_user_key(), then simply reuse the same user key for your WWW::Pastebin::PastebinCom::API scripts, just as you do with api_key. This would save making a request to pastebin.com every time you need a user key.

timeout

my $bin = WWW::Pastebin::PastebinCom::API->new(
    timeout => 60,
);

Optional. Takes a number that represents seconds. Default: 30.

Specifies the request timeout whenever making requests to pastebin.com.

ua

my $bin = WWW::Pastebin::PastebinCom::API->new(
    ua => LWP::UserAgent->new(
        timeout => 30,
        agent   => 'Mozilla/5.0 (X11; Ubuntu; Linux i686; rv:21.0)'
                    . ' Gecko/20100101 Firefox/21.0',
    )
);

Optional. Takes an LWP::UserAgent-compatible object. That object must implement ->post() and ->get() methods that return the same stuff LWP::UserAgent returns. By default uses LWP::UserAgent with timeout set by timeout constructor argument (see above) and agent set to Firefox on Linux.

get_paste

my $bin = WWW::Pastebin::PastebinCom::API->new;
print $bin->get_paste('http://pastebin.com/YpTmWJG6')
    || die "$bin";

print $bin->get_paste('YpTmWJG6')
    || die "$bin";

#### Get a private paste:
print $bin->get_paste('YpTmWJG6', $USER, $PASS)
    || die "$bin";

Retrieves raw content of an existing paste. Takes one mandatory and two optional arguments.

The mandatory argument is a string that is either a URL to the paste you want to retrieve or just the paste ID (e.g. paste ID in "http://pastebin.com/YpTmWJG6" is "YpTmWJG6"). The two optional arguments must be provided together and they are the login and the password to the pastebin.com account. They must be provided when getting private pastes for that account.

On success returns the raw content of the paste. On failure returns either undef or an empty list, depending on the context, and ->error() method will contain human-readable description of the error.

The use of this method doesn't require you to have an API key with pastebin.com.

get_user_key

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

Obtains a user key from pastebin.com. This user key is required for creating, deleting, and listing private user pastes. The API spec says this key does not expire, so you should be able to reuse one key for all your needs (see user_key argument for the constructor). Takes two mandatory arguments as strings: first one is your pastebin.com login, second one is your pastebin.com password. On success sets ->user_key() accessor and returns a user key (e.g. 4fd751dc94f0b62c489b2c7720e0d240). On failure returns either undef or an empty list, depending on the context, and ->error() method will contain human-readable description of the error. Note that if ->get_user_key() fails, then ->user_key() will be undefined, even if it was set to something prior to the call of ->get_user_key()

paste

##### Simple paste with all optional args at default values

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

print $bin->paste('Stuff to paste') || die "$bin";


##### Make an unlisted paste

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

print $bin->paste( 'Stuff to paste', unlisted => 1, )
    || die "$bin";


##### Private paste with all optional args set

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

$bin->paste(
    'Stuff to paste',

    title => 'Title for your paste',
    private => 1,       # set paste as a private paste
    format => 'perl',   # Perl syntax highlighting
    expiry => 'awhile', # expire the paste after 1 week
) or die "$bin";

print "$bin\n";

Creates a new paste on pastebin.com. On success sets ->paste_url() accessor method and returns a URL pointing to the newly-created paste. On failure returns either undef or an empty list, depending on the context, and ->error() method will contain human-readable description of the error. Note that on failure, ->paste_url() will be undefined, even if it was set prior to executing ->paste(). Takes one mandatory argument as a string (paste content) and several optional arguments as key/value pairs. Possible arguments are as follows:

First argument

print $bin->paste('Stuff to paste') || die "$bin";

Mandatory. Specifies the content of the paste.

title

$bin->paste(
    'Stuff to paste',
    title => 'Title for your paste',
) or die "$bin";

Optional. Specifies the title of the paste. By default is not specified and the paste will end up being called "Untitled."

expiry

$bin->paste(
    'Stuff to paste',
    expiry => 'asap',
) or die "$bin";

Optional. Specifies when the paste should expire. By default is not specified, so the paste will never expire. Takes a string as an argument. Case-insensitive. Along with values specified by the API, several other aliases exist. Possible values are as follows:

Expire in 10 Minutes

10m
m10
asap

Expire in 1 Hour

h
1h

Expire in 1 Day

d
1d
soon

Expire in 1 Week

w
1w
awhile

Expire in 2 Weeks

2w
w2

Expire in 1 Month

1m
m1
eventually

Never expire

n
never

format

$bin->paste(
    'Stuff to paste',
    format => 'perl',
) or die "$bin";

Optional. Specifies syntax highlighting language. Takes a string as a value, which specifies the language to use. Possible values are (on the left is the value you'd use for format and on the right is the explanation of what language it is):

             4cs   # 4CS
        6502acme   # 6502 ACME Cross Assembler
     6502kickass   # 6502 Kick Assembler
        6502tasm   # 6502 TASM/64TASS
     68000devpac   # Motorola 68000 HiSoft Dev
            abap   # ABAP
    actionscript   # ActionScript
   actionscript3   # ActionScript 3
             ada   # Ada
         algol68   # ALGOL 68
          apache   # Apache Log
     applescript   # AppleScript
     apt_sources   # APT Sources
             arm   # ARM
             asm   # ASM (NASM)
             asp   # ASP
       asymptote   # Asymptote
        autoconf   # autoconf
      autohotkey   # Autohotkey
          autoit   # AutoIt
        avisynth   # Avisynth
             awk   # Awk
       bascomavr   # BASCOM AVR
            bash   # Bash
        basic4gl   # Basic4GL
              bf   # BrainFuck
          bibtex   # BibTeX
      blitzbasic   # Blitz Basic
             bnf   # BNF
             boo   # BOO
               c   # C
    c_loadrunner   # C: Loadrunner
           c_mac   # C for Macs
          caddcl   # CAD DCL
         cadlisp   # CAD Lisp
            cfdg   # CFDG
             cfm   # ColdFusion
      chaiscript   # ChaiScript
             cil   # C Intermediate Language
         clojure   # Clojure
           cmake   # CMake
           cobol   # COBOL
    coffeescript   # CoffeeScript
             cpp   # C++
          cpp-qt   # C++ (with QT extensions)
          csharp   # C#
             css   # CSS
        cuesheet   # Cuesheet
               d   # D
             dcl   # DCL
          dcpu16   # DCPU-16
             dcs   # DCS
          delphi   # Delphi
            diff   # Diff
             div   # DIV
             dos   # DOS
             dot   # DOT
               e   # E
      ecmascript   # ECMAScript
          eiffel   # Eiffel
           email   # Email
             epc   # EPC
          erlang   # Erlang
              f1   # Formula One
          falcon   # Falcon
              fo   # FO Language
         fortran   # Fortran
       freebasic   # FreeBasic
      freeswitch   # FreeSWITCH
          fsharp   # F#
          gambas   # GAMBAS
             gdb   # GDB
          genero   # Genero
           genie   # Genie
         gettext   # GetText
            glsl   # OpenGL Shading
             gml   # Game Maker
         gnuplot   # Ruby Gnuplot
              go   # Go
          groovy   # Groovy
         gwbasic   # GwBasic
         haskell   # Haskell
            haxe   # Haxe
          hicest   # HicEst
         hq9plus   # HQ9 Plus
     html4strict   # HTML
           html5   # HTML 5
            icon   # Icon
             idl   # IDL
             ini   # INI file
            inno   # Inno Script
        intercal   # INTERCAL
              io   # IO
               j   # J
            java   # Java
           java5   # Java 5
      javascript   # JavaScript
          jquery   # jQuery
         kixtart   # KiXtart
          klonec   # Clone C
        klonecpp   # Clone C++
           latex   # Latex
              lb   # Liberty BASIC
            ldif   # LDIF
            lisp   # Lisp
            llvm   # LLVM
       locobasic   # Loco Basic
         logtalk   # Logtalk
         lolcode   # LOL Code
   lotusformulas   # Lotus Formulas
     lotusscript   # Lotus Script
         lscript   # LScript
            lsl2   # Linden Scripting
             lua   # Lua
            m68k   # M68000 Assembler
         magiksf   # MagikSF
            make   # Make
        mapbasic   # MapBasic
          matlab   # MatLab
            mirc   # mIRC
            mmix   # MIX Assembler
         modula2   # Modula 2
         modula3   # Modula 3
           mpasm   # MPASM
            mxml   # MXML
           mysql   # MySQL
          nagios   # Nagios
         newlisp   # newLISP
            nsis   # NullSoft Installer
         oberon2   # Oberon 2
            objc   # Objective C
          objeck   # Objeck Programming Langua
           ocaml   # OCaml
     ocaml-brief   # OCalm Brief
          octave   # Octave
           oobas   # Openoffice BASIC
        oracle11   # Oracle 11
         oracle8   # Oracle 8
         oxygene   # Delphi Prism (Oxygene)
              oz   # Oz
        parasail   # ParaSail
          parigp   # PARI/GP
          pascal   # Pascal
            pawn   # PAWN
            pcre   # PCRE
             per   # Per
            perl   # Perl
           perl6   # Perl 6
              pf   # OpenBSD PACKET FILTER
             php   # PHP
       php-brief   # PHP Brief
           pic16   # Pic 16
            pike   # Pike
     pixelbender   # Pixel Bender
           plsql   # PL/SQL
      postgresql   # PostgreSQL
          povray   # POV-Ray
    powerbuilder   # PowerBuilder
      powershell   # Power Shell
         proftpd   # ProFTPd
        progress   # Progress
          prolog   # Prolog
      properties   # Properties
        providex   # ProvideX
       purebasic   # PureBasic
           pycon   # PyCon
           pys60   # Python for S60
          python   # Python
               q   # q/kdb+
          qbasic   # QBasic
           rails   # Rails
           rebol   # REBOL
             reg   # REG
            rexx   # Rexx
          robots   # Robots
         rpmspec   # RPM Spec
          rsplus   # R
            ruby   # Ruby
             sas   # SAS
           scala   # Scala
          scheme   # Scheme
          scilab   # Scilab
        sdlbasic   # SdlBasic
       smalltalk   # Smalltalk
          smarty   # Smarty
           spark   # SPARK
          sparql   # SPARQL
             sql   # SQL
     stonescript   # StoneScript
   systemverilog   # SystemVerilog
             tcl   # TCL
        teraterm   # Tera Term
            text   # None
       thinbasic   # thinBasic
            tsql   # T-SQL
      typoscript   # TypoScript
          unicon   # Unicon
             ups   # UPC
            urbi   # Urbi
         uscript   # UnrealScript
            vala   # Vala
              vb   # VisualBasic
           vbnet   # VB.NET
           vedit   # Vedit
         verilog   # VeriLog
            vhdl   # VHDL
             vim   # VIM
    visualfoxpro   # VisualFoxPro
    visualprolog   # Visual Pro Log
      whitespace   # WhiteSpace
           whois   # WHOIS
        winbatch   # Winbatch
          xbasic   # XBasic
             xml   # XML
       xorg_conf   # Xorg Config
             xpp   # XPP
            yaml   # YAML
             z80   # Z80 Assembler
         zxbasic   # ZXBasic

unlisted

print $bin->paste( 'Stuff to paste', unlisted => 1, )
    || die "$bin";

Optional. Takes a true or false value. When set to a true value, will cause the paste to be unlisted. When used in conjunction with private option (see below) the behaviour is undefined. By default neither unlisted nor private are specified and the created paste is public and listed.

Note: Pastebin will automatically list duplicate content or content with some keywords as unlisted, even if we tell it to go public. It's not a bug in the module.

owned

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

print $bin->paste( 'Stuff to paste', owned => 1, )
    || die "$bin";

Optional. Takes a true or false value. When set to a true value, will cause the paste you create to be labeled as pasted by you instead of Guest. By default is set to false and pastes will be labeled as created by Guest.

When creating an "owned" paste, ->user_key() accessor method must contain a user key for the user who will own this paste. You can either set it directly using ->user_key(), set it in the constructor using user_key argument, or set it indirectly by calling ->get_user_key() method.

private

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

print $bin->paste( 'Stuff to paste', private => 1, )
    || die "$bin";

Optional. Takes a true or false value. When set to a true value, will cause the paste to be private (viewable only when the user is logged in). When used in conjunction with unlisted option (see above) the behaviour is undefined. By default neither unlisted nor private are specified and the created paste is public and listed.

When creating a private or "owned" paste, ->user_key() accessor method must contain a user key for the user who will own this paste. You can either set it directly using ->user_key(), set it in the constructor using user_key argument, or set it indirectly by calling ->get_user_key() method.

delete_paste

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

$bin->delete_paste('http://pastebin.com/YpTmWJG6')
    or die "$bin";

#### or
$bin->delete_paste('YpTmWJG6')
    or die "$bin";

Deletes user's private paste (see private argument to ->paste()). Takes one mandatory argument as a string containing either the full URL to the paste to be deleted or just the paste ID (e.g. YpTmWJG6 is paste ID for http://pastebin.com/YpTmWJG6).

The ->user_key() accessor method must contain a user key for the user who owns this paste. You can either set it directly using ->user_key(), set it in the constructor using user_key argument, or set it indirectly by calling ->get_user_key() method.

list_user_pastes

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

my $pastes = $bin->list_user_pastes(10) # get at most 10 pastes
    or die "$bin";

use Data::Dumper;
print Dumper $pastes;

Lists user's private pastes. Prior to calling ->list_user_pastes() ->user_key() must be set, either by calling ->get_user_key(), using ->user_key() accessor method, or user_key constructor argument. Takes one optional argument as a positive integer between 1 and 1000, which specifies the maximum number of pastes to retrieve. By default will get at most 50 pastes. On failure returns either undef or an empty list, depending on the context, and the ->error() accessor method will contain human-readable error message. On success returns a — possibly empty — arrayref or a list (depending on context) of hashrefs, where each hashref represents information about a single paste. The format of the hashref is this:

{
    'key'           => 'zrke2Q9R',
    'url'           => 'http://pastebin.com/zrke2Q9R',
    'title'         => 'Title for your paste'
    'date'          => '1382901396',
    'expire_date'   => '1383506196',
    'format_short'  => 'perl',
    'format_long'   => 'Perl',
    'private'       => 1,
    'size'          => '14',
    'hits'          => '0',
}

The API is not descriptive on what values these keys might have, so what you have below is only my interpretation:

key

    'key' => 'zrke2Q9R',

String of text. The paste ID of the paste. You can pass it to ->delete_paste() method to delete the paste.

url

    'url' => 'http://pastebin.com/zrke2Q9R',

String of text. The URL of the paste.

title

    'title' => 'Title for your paste'

String of text. The title of the paste.

date

    'date' => '1382901396',

Unix time format. The date when the paste was created.

expire_date

    'expire_date' => '1383506196',

Unix time format. The date when the paste will expire.

format_short

    'format_short' => 'perl',

Syntax highlighting for the paste. See the left column in the format argument for the ->paste() method.

format_long

    'format_long' => 'Perl',

Explanation of the code for the syntax highlighting for the paste. See the right column in the format argument for the ->paste() method.

private

    'private' => 1,

True value, if exists. An indication that it's a private paste.

unlisted

    'unlisted' => 1,

True value, if exists. An indication that it's an unlisted paste.

size

    'size' => '14',

Positive integer. The size of the paste, presumably the number of characters.

hits

    'hits' => '0',

Positive integer or zero. The number of times the paste was viewed.

list_trends

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

my $trends = $bin->list_trends
    or die "$bin";

use Data::Dumper;
print Dumper $trends;

Lists 18 trending pastes. Takes no arguments. On failure returns either undef or an empty list, depending on the context, and the ->error() accessor method will contain human-readable error message. On success returns an arrayref or a list (depending on context) of hashrefs, where each hashref represents information about a single paste. The format of the hashref is the same as for hashrefs returned by the ->list_user_pastes() method (see above), except that that private, format_short, and format_long keys will not be there.

get_user_info

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

my $info = $bin->get_user_info
    or die "$bin";

use Data::Dumper;
print Dumper $info;

List user's account info. Prior to calling ->get_user_info() ->user_key() must be set, either by calling ->get_user_key(), using ->user_key() accessor method, or user_key constructor argument. Takes no arguments. On failure returns either undef or an empty list, depending on the context, and the ->error() accessor method will contain human-readable error message. On success either a hashref or a key/value list, depending on the context. The format of the hashref is this:

{
    'name' => 'zoffixisawesome',
    'website' => 'http://zoffix.com',
    'location' => 'Toronto',
    'format_short' => 'perl',
    'avatar_url' => 'http://pastebin.com/i/guest.gif',
    'private' => '1',  # also possible for this to be unlisted => 1 instead
    'email' => 'cpan@zoffix.com',
    'expiration' => 'N',
    'account_type' => '0'
}

The API is not too descriptive about the values of the user info, so what follows is my interpretation:

name

'name' => 'zoffixisawesome',

A string of text. User's login.

email

'email' => 'cpan@zoffix.com',

A string of text. User's email address.

website

'website' => 'http://zoffix.com',

A string of text. The website the user specified in their profile.

location

'location' => 'Toronto',

A string of text. User's location (specified by the user manually by them in their profile).

format_short

'format_short' => 'perl',

This is the code for user's default syntax highlighting. See the left column in the format argument to ->paste() method.

avatar_url

'avatar_url' => 'http://pastebin.com/i/guest.gif',

A string of text. The URL to the user's avatar picture.

private or unlisted

'private' => '1',

'unlisted' => '1',

True value, if exist. If private key is present, user's default paste setting is to make the paste private. If unlisted key is present, user's default paste setting is to make the paste unlisted.

expiration

'expiration' => 'N',

User's default expiry setting for their pastes. The values you can possibly get here are these:

N = Never
10M = 10 Minutes
1H = 1 Hour
1D = 1 Day
1W = 1 Week
2W = 2 Weeks
1M = 1 Month

account_type

'account_type' => '0',

0 or 1 as a value. Indicates user's account type. 0 means it's a normal; 1 means PRO.

ACCESSOR METHODS

error

$bin->paste('Stuff') or die $bin->error;

### or

$bin->paste('Stuff') or die "$bin";

Takes no arguments. Returns the human-readable error message if the last method failed. This method is overloaded so you can call it by interpolating the object in a string. The only difference is when interpolating, the error message will be preceded with the word Error:. Note that ->paste_url() is also overloaded and the module will interpolate the value of instead ->paste_url() if no error is set.

paste_url

$bin->paste('Stuff') or die "$bin";
print $bin->paste_url;

### or

$bin->paste('Stuff') or die "$bin";
print "$bin"

Takes no arguments. Returns the URL of the newly-created paste after a successful call to ->paste() method. This method is overloaded so you can call it by interpolating the object in a string. Note that ->error() is also overloaded and the module will interpolate the value of ->error() instead, if an error is set.

api_key

my $bin = WWW::Pastebin::PastebinCom::API->new;

$bin->api_key('a3767061e0e64fef6c266126f7e588f4');
printf "Current API key is %s\n", $bin->api_key;

Takes one optional argument as a string, which is a pastebin.com's API key to be used by the module. Returns the currently used API key, as a string.

user_key

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);

$bin->get_user_key(qw/
    your_pastebin.com_login
    your_pastebin.com_password
/) or die "$bin";

printf "Current user key is %s\n", $bin->user_key;

Takes one optional argument as a string, which is a user key to be used by the module. Returns the currently used user key, as a string. See ->get_user_key() for details on what a user key is.

OVERLOADS

$bin->paste('Stuff') or die "$bin";
print "$bin";

The ->error() and ->paste_url() methods are overloaded so you can call them by interpolating the object in a string. If ->error() contains an error message it will be called when the object is interpolated, otherwise ->paste_url() will be called. There's a slight difference between calling ->error() directly or through interpolation: when interpolated, word Error: is added to the error message.

EXAMPLES

The examples/ directory of this distribution contains two example scripts: one for pasting a file and another for retrieving a paste.

REPOSITORY

Fork this module on GitHub: https://github.com/zoffixznet/WWW-Pastebin-PastebinCom-API

BUGS

To report bugs or request features, please use https://github.com/zoffixznet/WWW-Pastebin-PastebinCom-API/issues

If you can't access GitHub, you can email your request to bug-www-pastebin-pastebincom-api at rt.cpan.org

AUTHOR

Zoffix Znet zoffix at cpan.org, (http://zoffix.com/)

CONTRIBUTORS

Philipp Hamer, https://github.com/ponzellus

LICENSE

You can use and distribute this module under the same terms as Perl itself. See the LICENSE file included in this distribution for complete details.