File Coverage

blib/lib/PayProp/API/Public/Client/Role/JSON.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	9	10	90.0
condition	6	10	60.0
subroutine	4	4	100.0
pod	0	1	0.0
total	49	56	87.5

package PayProp::API::Public::Client::Role::JSON;

use strict;
use warnings;

use Mouse::Role;

sub TO_JSON {
	my ( $self, $value, $structure ) = @_;

	$value //= $self unless $structure;
	$structure //= {};

	my $ref_type = ref $value;

	if ( ! $ref_type || $ref_type =~ m/Bool/ ) {
		return $value;
	}
	elsif ( $ref_type eq 'ARRAY' ) {
		my @items;
		foreach my $item ( $value->@* ) {
			push @items, $self->TO_JSON( $item, $structure );
		}
		return \@items;
	}
	elsif ( $ref_type eq 'HASH' ) {
		foreach my $key ( keys $value->%* ) {
			$structure->{ $key } = $self->TO_JSON( $value->{ $key }, $structure );
		}
		return $structure;
	}
	elsif ( $ref_type =~ m/PayProp::API::Public::Client::Response/ ) {
		foreach my $Attribute (
			( map { $value->meta->get_attribute( $_ ) } $value->meta->get_attribute_list )
		) {
			my $key = $Attribute->name;

			my $reader = $Attribute->get_read_method;
			my $item = $value->$reader;

			$structure->{ $key } //= {};
			$structure->{ $key } = $self->TO_JSON( $item, $structure->{ $key } );
		}
	}
	else {
		die "Unhandled ref_type: $ref_type";
	}

	return $structure;
}

1;

__END__