PX::API::Response::Rest - A C<PX::API::Response> plugin module.

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::Rest
- new
- parse
- format
__END__
EOF

NAME

PX::API::Response::Rest - A PX::API::Response plugin module.

DESCRIPTION

This plugin is loaded automagically by PX::API::Response when the 'rest' response format is returned from the Peekshows API. XML::Simple is used to parse the xml returned from the API call.

DEPENDENCIES

PX::API::Response XML::Simple

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::Rest;
use warnings;
use strict;
use Carp;

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

use XML::Simple;

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

	$class = ref($class) || $class;
	my $self = bless {}, $class;
	$self->{'xs'} = XML::Simple->new(KeepRoot => 1, KeyAttr => []);
	return $self;
	}

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

	my $xs = $self->{'xs'};
	my $ref = $xs->XMLin($xml);
	return $ref;
	}

sub format { 'rest' }


1;
__END__