File Coverage

blib/lib/HTTP/Entity/Parser/JSON.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	7	10	70.0
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	49	55	89.0

package HTTP::Entity::Parser::JSON;

use strict;
use warnings;
use JSON::MaybeXS qw/decode_json/;
use Encode qw/encode_utf8/;

sub new {
    bless [''], $_[0];
}

sub add {
    my $self = shift;
    if (defined $_[0]) {
        $self->[0] .= $_[0];
    }
}

sub finalize {
    my $self = shift;

    my $p = decode_json($self->[0]);
    my @params;
    if (ref $p eq 'HASH') {
        while (my ($k, $v) = each %$p) {
            push @params, _encode($k), _encode($v);
        }
    }
    return (\@params, []);
}

sub _encode {
    my ($data) = @_;

    if (ref $data eq "ARRAY") {
        my @result;
        for my $d (@$data) {
            push @result, _encode($d);
        }
        return \@result;
    }
    elsif (ref $data eq "HASH") {
        my %result;
        while (my ($k, $v) = each %$data) {
            $result{_encode($k)} = _encode($v);
        }
        return \%result;
    }

    return defined $data ? encode_utf8($data) : undef;
}

1;

__END__