File Coverage

blib/lib/WebService/Simple/Parser/JSON.pm

Criterion	Covered	Total	%
statement	20	24	83.3
branch			n/a
condition	1	3	33.3
subroutine	6	7	85.7
pod	2	3	66.6
total	29	37	78.3

# $Id$

package WebService::Simple::Parser::JSON;
use strict;
use warnings;
use base qw(WebService::Simple::Parser);
use JSON 2.0;

sub new
{
    my $class = shift;
    my %args  = @_;

    my $json  = delete $args{json} || JSON->new;
    my $self  = $class->SUPER::new(%args);
    $self->{json} = $json;
    return $self;
}

sub parse_request
{
    my $self = shift;
#   my $content = $_[0]->decoded_content;
#   # JSONP to pure JSON
#   $content =~ s/[a-zA-Z_\$][a-zA-Z0-9_\$]*\s*\((.+)\)\s*;?\s*$/$1/;
    $self->{json}->encode( $_[0] );
}

sub parse_response
{
    my $self = shift;
    my $content = $_[0]->decoded_content;
    # JSONP to pure JSON
    $content =~ s/[a-zA-Z_\$][a-zA-Z0-9_\$]*\s*\((.+)\)\s*;?\s*$/$1/;
    $self->{json}->decode( $content );
}

1;

__END__