PX::API::Response::JSON - A C<PX::API::Response> plugin.

PX-API documentation

Contained in the PX-API distribution.

Index

NAME
DESCRIPTION
DEPENDENCIES
SEE ALSO
AUTHOR
LICENCE AND COPYRIGHT

Code Index:

package PX::API::Response::JSON
- new
- parse
- format
__END__
EOF

NAME

PX::API::Response::JSON - A PX::API::Response plugin.

DESCRIPTION

This plugin is loaded automagically by PX::API::Response when the 'json' response format is returned from the Peekshows API. JSON is used to parse the json object returned from the API call.

DEPENDENCIES

SEE ALSO

PX::API http://www.peekshows.com http://services.peekshows.com

AUTHOR

Anthony Decena <anthony@1bci.com>

LICENCE AND COPYRIGHT

Copyright (c) 2007, Anthony Decena <anthony@1bci.com>. All rights reserved.

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

PX-API documentation

Contained in the PX-API distribution.

package PX::API::Response::JSON;
use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.3');

use JSON;

sub new {
	my $class = shift;
	my $args  = shift;

	$class = ref($class) || $class;
	my $self = bless {}, $class;

	$self->{'xs'} = JSON->new();
	return $self;
	}

sub parse {
	my $self = shift;
	my $json = shift;

	my $xs = $self->{'xs'};
	my $ref = $xs->jsonToObj($json);
	return $ref;
	}

sub format { 'json' }


1;
__END__