File Coverage

lib/Web/ComposableRequest/Role/JSON.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	26	100.0

package Web::ComposableRequest::Role::JSON;

use namespace::autoclean;

use Encode                            qw( decode );
use JSON::MaybeXS                     qw( );
use Web::ComposableRequest::Constants qw( FALSE );
use Unexpected::Types                 qw( Object );
use Moo::Role;

requires qw( content_type _config _decode_body );

has '_json' => is => 'lazy', isa => Object,
   builder  => sub { JSON::MaybeXS->new( utf8 => FALSE ) };

around '_decode_body' => sub {
   my ($orig, $self, $body, $content) = @_;

   $self->content_type eq 'application/json'
      or return $orig->( $self, $body, $content );

   $body->{param} = $self->_json->decode
      ( decode( $self->_config->encoding, $content ) );

   return;
};

1;

__END__