WebService-TWFY-API

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.02 Tue Apr 3 2007
    - Added Test::Exception to list of prereqs. Apologies CPANTS :-()

0.03 Sat Dec 27th 2008
    - the TWFY API now requires a key, thanks davorg!

0.04 Tue Aug 2nd 2011
    - house cleaning

0.06 Thu Oct 13th 2011
    - Added HTTP::Request as prereq  (thanks Andreas)
    
0.07 Mon Nov 7th 2011
    - Added LWP UA as prereq (thanks again Andreas)

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : 0
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : 0,
            "HTTP::Request" : 0,
            "LWP::UserAgent" : 0,
            "Test::Exception" : "0.24",
            "Test::Simple" : "0.44",
            "URI" : 0
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.07"
}

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: WebService-TWFY-API
no_index:
  directory:
    - t
    - inc
requires:
  Carp: 0
  HTTP::Request: 0
  LWP::UserAgent: 0
  Test::Exception: 0.24
  Test::Simple: 0.44
  URI: 0
version: 0.07

Makefile.PL  view on Meta::CPAN

# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME         => 'WebService::TWFY::API',
    VERSION_FROM => 'lib/WebService/TWFY/API.pm', # finds \$VERSION
    AUTHOR       => 'Spiros Denaxas (s [dot] denaxas [@] gmail [dot]com)',
    ABSTRACT     => 'API interface for TheyWorkForYou.com',
    PREREQ_PM    => {
                     'Test::Simple'    => 0.44,
                     'Test::Exception' => 0.24,
                     'HTTP::Request'   => 0,
                     'LWP::UserAgent'  => 0,
                     'Carp'            => 0,
                     'URI'             => 0,
                    },
);

lib/WebService/TWFY/Request.pm  view on Meta::CPAN

package WebService::TWFY::Request ;

use strict ;
use warnings ;

use Carp ;

use HTTP::Request ;
use URI ;

our $VERSION = 0.07 ;
our @ISA = qw( HTTP::Request ) ;

=head1 NAME

WebService::TWFY::Request - API interface for TheyWorkForYou.com

=head1 VERSION

Version 0.07

=cut

lib/WebService/TWFY/Request.pm  view on Meta::CPAN

  if ($rv->{is_success}) {
  
    my $results = $rv->{results} ;
    ### do whatever with results
  
  }

=head1 DESCRIPTION

This module encapsulates a single request and its arguments. 
C<WebService::TWFY::Request> is essentially a subscall of C<HTTP::Request>.

=head1 SUPPORT

Please feel free to send any bug reports and suggestions to my email listed below.

For more information and useless facts on my life, you can also check my blog:

  http://ffffruit.com/

=head1 AUTHOR

lib/WebService/TWFY/Request.pm  view on Meta::CPAN

=head1 SEE ALSO

C<WebService::TWFY::API>, C<WebService::TWFY::Response>, L<http://www.theyworkforyou.com/api/>, L<http://www.theyworkforyou.com/>

=cut


sub new {
  my $class = shift ;
  my $self = new HTTP::Request ;
  my $function = shift ;
  my $rh_args = shift ;
  
  $self->{function} = $function ;
  $self->{args} = $rh_args ;
  
  $self->method('POST') ;
  my $uri = &_get_uri_for_function($function) ;
  
  if (not defined $uri) {