File Coverage

blib/lib/PLS/JSON.pm
Criterion Covered Total %
statement 16 22 72.7
branch 1 4 25.0
condition 2 9 22.2
subroutine 4 5 80.0
pod 0 1 0.0
total 23 41 56.1


line stmt bran cond sub pod time code
1              
2             use strict;
3 11     11   1024 use warnings;
  11         20  
  11         244  
4 11     11   44  
  11         20  
  11         212  
5             use Exporter qw(import);
6 11     11   43  
  11         11  
  11         1630  
7             our $package;
8              
9             BEGIN
10             {
11             if ($INC{'Cpanel/JSON/XS.pm'} or eval { require Cpanel::JSON::XS; 1 })
12 11 50 66 11   69 {
  10 0 0     7202  
  10   0     26329  
13             $package = 'Cpanel::JSON::XS';
14 11         22 }
15             elsif (($INC{'JSON/XS.pm'} or eval { require JSON::XS; 1 }) and eval { JSON::XS->VERSION(3.0); 1 })
16 0         0 {
  0         0  
17             $package = 'JSON::XS';
18 0         0 }
19             else
20             {
21             require JSON::PP;
22 0         0 $package = 'JSON::PP';
23 0         0 }
24              
25             $package->import(qw(encode_json decode_json));
26 11         339  
27             *PLS::JSON::true = $package->can('true');
28 11         60 *PLS::JSON::false = $package->can('false');
29 11         824 } ## end BEGIN
30              
31             our @EXPORT = qw(encode_json decode_json);
32              
33             {
34             return $package->new();
35             }
36 0     0 0    
37             1;