File Coverage

blib/lib/Pegex/Drinkup.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 28 29 96.5


line stmt bran cond sub pod time code
1 2     2   1988 use strict; use warnings;
  2     2   4  
  2         74  
  2         10  
  2         8  
  2         109  
2             package Pegex::Drinkup;
3             our $VERSION = '0.0.2';
4              
5 2     2   1514 use Pegex::Base;
  2         5165  
  2         10  
6              
7 2     2   8727 use Pegex::Parser;
  2         30699  
  2         68  
8 2     2   1534 use Pegex::Drinkup::Grammar;
  2         9  
  2         23  
9 2     2   1301 use Pegex::Drinkup::Data;
  2         8  
  2         263  
10              
11             sub parse {
12 1     1 0 8 my ($self, $input) = @_;
13 1         14 my $parser = Pegex::Parser->new(
14             grammar => Pegex::Drinkup::Grammar->new(),
15             receiver => Pegex::Drinkup::Data->new(),
16             # debug => 1,
17             );
18 1         299 return $parser->parse($input);
19             }
20              
21             1;