File Coverage

blib/lib/Test2/Harness/JSON.pm
Criterion Covered Total %
statement 14 16 87.5
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 19 22 86.3


line stmt bran cond sub pod time code
1             package Test2::Harness::JSON;
2 27     27   84 use strict;
  27         28  
  27         630  
3 27     27   84 use warnings;
  27         27  
  27         2400  
4              
5             our $VERSION = '0.000013';
6              
7             BEGIN {
8 27     27   31 local $@ = undef;
9 27         29 my $ok = eval {
10 27         12520 require JSON::MaybeXS;
11 27         109651 JSON::MaybeXS->import('JSON');
12 27         74 1;
13             };
14              
15 27 50       1094 unless($ok) {
16 0         0 require JSON::PP;
17 0         0 *JSON = sub() { 'JSON::PP' };
18             }
19             }
20              
21             our @EXPORT = qw{JSON};
22 27     27   132 BEGIN { require Exporter; our @ISA = qw(Exporter) }
  27         570  
23              
24             1;