File Coverage

blib/lib/MojoX/Renderer/JSON/XS.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 1 1 100.0
total 29 29 100.0


line stmt bran cond sub pod time code
1             package MojoX::Renderer::JSON::XS;
2 4     4   859568 use 5.010;
  4         16  
3 4     4   19 use strict;
  4         5  
  4         76  
4 4     4   27 use warnings;
  4         6  
  4         153  
5             our $VERSION = "0.05";
6              
7 4     4   1002 use JSON::XS;
  4         48012  
  4         316  
8 4     4   1706 use Mojo::Exception ();
  4         17482  
  4         82  
9 4     4   938 use Mojo::Util qw(monkey_patch);
  4         115775  
  4         686  
10              
11             monkey_patch 'Mojo::Exception', TO_JSON => \&Mojo::Exception::to_string;
12              
13             our $JSON = JSON::XS->new->utf8->convert_blessed;
14              
15             sub build {
16 4     4 1 42770 sub { ${$_[2]} = $JSON->encode($_[3]{json}); };
  4     3   47  
  3         113  
17             }
18              
19             1;
20              
21             __END__