NAME
    POE::Component::Client::Pastebot - interact with Bot::Pastebot web
    services.

SYNOPSIS
      use strict;
      use POE qw(Component::Client::Pastebot);

      my $pastebot = 'http://sial.org/pbot/';

      my $pbobj = POE::Component::Client::Pastebot->spawn( alias => 'pococpb' );

      POE::Session->create(
            package_states => [
              'main' => [ qw(_start _got_paste _got_fetch) ],
            ],
      );

      $poe_kernel->run();
      exit 0;

      sub _start {

        seek( DATA, 0, 0 );
        local $/;
        my $source = <DATA>;

        $poe_kernel->post( 'pococpb', 'paste', 

            { event => '_got_paste', 
              url   => $pastebot, 
              paste => $source,
              channel => '#perl',
              nick => 'pococpb',
              summary => 'POE::Component::Client::Pastebot synopsis',
            },
        );
        undef;
      }

      sub _got_paste {
        my ($kernel,$ref) = @_[KERNEL,ARG0];
        if ( $ref->{pastelink} ) {
            print STDOUT $ref->{pastelink}, "\n";
            $kernel->post( 'pococpb', 'fetch', { event => '_got_fetch', url => $ref->{pastelink} } );
            return;
        }
        warn $ref->{error}, "\n";
        $kernel->post( 'pococpb', 'shutdown' );
        undef;
      }

      sub _got_fetch {
        my ($kernel,$ref) = @_[KERNEL,ARG0];
        if ( $ref->{content} ) {
            print STDOUT $ref->{content}, "\n";
        }
        else {
            warn $ref->{error}, "\n";
        }
        $kernel->post( 'pococpb', 'shutdown' );
        undef;
      }

DESCRIPTION
    POE::Component::Client::Pastebot is a POE component that provides
    convenient mechanisms to paste and fetch pastes from Bot::Pastebot based
    web services.

    It was inspired by <http://sial.org/> pbotutil.

CONSTRUCTOR
    spawn
        Starts a new POE::Component::Client::Pastebot session and returns an
        object. Takes a number of arguments all are optional.

          'alias', specify a POE Kernel alias for the component;
          'options', a hashref of POE Session options to pass to the component's session;

METHODS
    session_id
        Takes no arguments. Returns the POE Session ID of the component.

    shutdown
        Takes no arguments, terminates the component.

INPUT EVENTS
    What POE events our component will accept.

    paste
        Sends a paste request to a pastebot url. Accepts either a hashref of
        the following values or a list of the same:

          'event', the name of the event to send the reply to. ( Mandatory );
          'url', the URL of the pastebot to paste to. ( Mandatory );
          'paste', either a scalar or arrayref of data to paste, ( Mandatory );
          'channel', the channel to annouce to;
          'nick', the nickname to annouce from;
          'summary', brief description of the paste;

        You may also pass arbitary key/values in the hashref ( as
        demonstrated in the SYNOPSIS ). Arbitary keys should have an
        underscore prefix '_'.

    fetch
        Retrieves the text from a given paste url. Accepts either a hashref
        of the following values or a list of the same:

          'event', the name of the event to send the reply to. ( Mandatory );
          'url', the paste URL to retrieve;

        You may also pass arbitary key/values in the hashref ( as
        demonstrated in the SYNOPSIS ). Arbitary keys should have an
        underscore prefix '_'.

    shutdown
        Takes no arguments, terminates the component.

OUTPUT EVENTS
    The component will send an event in response to 'paste' and 'fetch'
    requests. ARG0 of the event will be a hashref containing the key/values
    of the original request ( including any arbitary key/values passed ).

    Both request types will have the following common keys:

      'error', if something went wrong with the request, this key will be defined
               with a brief description of the error encountered;
      'response', a HTTP::Response object as returned by LWP::UserAgent;

    The following additional key/values will be present depending on the
    type of request made:

    paste
          'pastelink', the URL of the paste that was made;

    fetch
          'content', the contents of the paste URL that was retrieved;

AUTHOR
    Chris 'BinGOs' Williams <chris@bingosnet.co.uk>

SEE ALSO
    POE

    Bot::Pastebot

    HTTP::Response

    <http://sial.org/code/perl/scripts/pbotutil.pl>

