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   70101 BEGIN { $ENV{PERL_PEGEX_AUTO_COMPILE} = 'Pegex::JSON::Grammar' }
3             our $VERSION = '0.30';
4              
5 2     2   982 use Pegex::Base;
  2         3762  
  2         9  
6              
7 2     2   4058 use Pegex::Parser;
  2         20828  
  2         60  
8 2     2   846 use Pegex::JSON::Grammar;
  2         7  
  2         28  
9 2     2   942 use Pegex::JSON::Data;
  2         5  
  2         174  
10              
11             sub load {
12 3     3 0 1725 my ($self, $json) = @_;
13 3         12 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;