File Coverage

lib/Web/ComposableRequest/Role/JSON.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	42	42	100.0

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

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

requires qw( content_type _config _decode_body );

add_config_role __PACKAGE__.'::Config';

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

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

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

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

   return;
};

use namespace::autoclean;

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

use Unexpected::Types qw( Str );
use Moo::Role;

# Public attributes
has 'json_body_attribute' => is => 'ro', isa => Str, default => 'param';

use namespace::autoclean;

1;

__END__