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   124 use strict;
  27         50  
  27         779  
3 27     27   144 use warnings;
  27         48  
  27         3852  
4              
5             our $VERSION = '0.000012';
6              
7             BEGIN {
8 27     27   71 local $@ = undef;
9 27         72 my $ok = eval {
10 27         15385 require JSON::MaybeXS;
11 27         214298 JSON::MaybeXS->import('JSON');
12 27         75 1;
13             };
14              
15 27 50       1767 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   199 BEGIN { require Exporter; our @ISA = qw(Exporter) }
  27         935  
23              
24             1;