File Coverage

bin/xdr-parse
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2              
3 1     1   6381 use lib '.';
  1         915  
  1         6  
4 1     1   951 use XDR::Parse;
  1         4  
  1         49  
5 1     1   919 use JSON::PP;
  1         27113  
  1         1629  
6              
7 1         160116 my $json = JSON::PP->new;
8              
9 1         34 my $p = XDR::Parse->new;
10 1         5 print $json->encode( $p->parse( \*STDIN ) );