File Coverage

blib/lib/Pegex/TOML.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 18 22 81.8


line stmt bran cond sub pod time code
1             package Pegex::TOML;
2 1     1   1092 BEGIN { $ENV{PERL_PEGEX_AUTO_COMPILE} = 'Pegex::TOML::Grammar' }
3             our $VERSION = '0.0.1';
4              
5 1     1   459 use Pegex::Base;
  1         1858  
  1         4  
6              
7 1     1   1880 use Pegex::Parser;
  1         10268  
  1         30  
8 1     1   481 use Pegex::TOML::Grammar;
  1         3  
  1         8  
9 1     1   512 use Pegex::TOML::Data;
  1         3  
  1         82  
10              
11             sub load {
12 0     0 0   my ($self, $toml) = @_;
13 0           Pegex::Parser->new(
14             grammar => Pegex::TOML::Grammar->new,
15             receiver => Pegex::TOML::Data->new,
16             # debug => 1,
17             )->parse($toml);
18             }
19              
20             1;