File Coverage

blib/lib/Pegex/JSON.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Pegex::JSON;
2 2     2   70268 BEGIN { $ENV{PERL_PEGEX_AUTO_COMPILE} = 'Pegex::JSON::Grammar' }
3             our $VERSION = '0.31';
4              
5 2     2   879 use Pegex::Base;
  2         3584  
  2         8  
6              
7 2     2   3711 use Pegex::Parser;
  2         21029  
  2         60  
8 2     2   904 use Pegex::JSON::Grammar;
  2         6  
  2         17  
9 2     2   913 use Pegex::JSON::Data;
  2         5  
  2         176  
10              
11             sub load {
12 3     3 0 1684 my ($self, $json) = @_;
13 3         13 Pegex::Parser->new(
14             grammar => Pegex::JSON::Grammar->new,
15             receiver => Pegex::JSON::Data->new,
16             # debug => 1,
17             )->parse($json);
18             }
19              
20             1;