File Coverage

blib/lib/JSON/MultiValueOrdered.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	9	10	90.0
condition	1	3	33.3
subroutine	8	8	100.0
pod			n/a
total	56	61	91.8

use 5.008;
use strict;
use warnings;
use if $] < 5.010, 'UNIVERSAL::DOES';

{
	package JSON::MultiValueOrdered;

	our $AUTHORITY = 'cpan:TOBYINK';
	our $VERSION   = '0.004';

	use base qw(JSON::Tiny::Subclassable);

	use Tie::Hash::MultiValueOrdered ();

	sub _new_hash { tie my %h, 'Tie::Hash::MultiValueOrdered'; return \%h }

	sub _encode_object {
		my $self = shift;
		my $object = shift;

		my $indent;
		if (exists $self->{_indent}) {
			$indent = $self->{_indent};
			$self->{_indent} .= "\t";
		}

		my @pairs;
		my $space = defined $indent ? q( ) : q();
		my $tied = tied(%$object);
		if ($tied and $tied->DOES('Tie::Hash::MultiValueOrdered')) {
			my @list = $tied->pairs;
			for (my $i = 0; $i < @list; $i+=2) {
				push @pairs, sprintf(
					'%s:%s%s',
					$self->_encode_string($list[$i]),
					$space,
					$self->_encode_values($list[$i + 1]),
				);
			}
		}
		else {
			while (my ($k, $v) = each %$object) {
				push @pairs, sprintf(
					'%s:%s%s',
					$self->_encode_string($k),
					$space,
					$self->_encode_values($v),
				);
			}
		}

		if (defined $indent)
		{
			$self->{_indent} =~ s/^.//;
			return "{}" unless @pairs;
			return "\{\n$indent\t" . join(",\n$indent\t", @pairs) . "\n$indent\}";
		}
		else
		{
			return '{' . join(',', @pairs) . '}';
		}
	}

	__PACKAGE__->import('j');
}

1;

__END__