File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	36	41	87.8

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) {
            if (ref $v) {
                push @params, encode_utf8($k), $v;
            } else {
                push @params, encode_utf8($k), encode_utf8($v);
            }
        }
    }
    return (\@params, []);
}

1;

__END__