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

WebService-TWFY-API documentation Contained in the WebService-TWFY-API distribution.

Index

Code Index:

NAME

Top

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

VERSION

Top

Version 0.01

SYNOPSIS

Top

  use WebService::TWFY::API ;

  my $rh = { key => 'ABC123' }; 
  my $api = WebService::TWFY::API->new( $rh ) ;

  my $rv = $api->query ( 'getConstituency', { 'postcode' => 'W128JL'
                                              'output'   => 'xml',
                                             } ) ;

  if ($rv->{is_success}) {

    my $results = $rv->{results} ;
    ### do whatever with results

  }

DESCRIPTION

Top

This module encapsulates a response from the API. WebService::TWFY::Response is essentially a subscall of HTTP::Response.

SUPPORT

Top

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://idaru.blogspot.com/

AUTHOR

Top

    Spiros Denaxas
    CPAN ID: SDEN
    Lokku Ltd
    s [dot] denaxas [@] gmail [dot]com
    http://idaru.blogspot.com

COPYRIGHT

Top

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

Top

WebService::TWFY::API, WebService::TWFY::Request, http://www.theyworkforyou.com/api/, http://www.theyworkforyou.com/

WebService-TWFY-API documentation Contained in the WebService-TWFY-API distribution. 
package WebService::TWFY::Response ;

use strict ;
use warnings ;

use HTTP::Response ;

our @ISA = qw( HTTP::Response ) ;
our $VERSION = 0.01 ;



sub new {
  my $class = shift ;
  my $self = new HTTP::Response ;
  my $rh_oprions = shift ;
  
  bless $self, $class ;
  return $self ;
  
}

sub init_obj {
  my $self = shift ;
  $self->{results} = undef ;
  $self->{is_success} = 0 ;
  $self->{error_code} = undef ;
  $self->{error_message} = undef ;
    
}

sub set_success {
  my ($self, $data) = (@_) ;
  $self->{is_success} = 1 ;
  $self->{results} = $data ;
}

sub set_fail {
  my ($self, $errcode, $errmsg) = (@_) ;
  $self->{is_success} = 0 ;
  $self->{error_code} = $errcode ;
  $self->{error_message} = $errmsg ;
}


1 ;