File Coverage

blib/lib/Pegex/CPAN/Packages.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Pegex::CPAN::Packages;
2             our $VERSION = '0.05';
3              
4 1     1   24357 use Pegex::Base;
  1         1941  
  1         6  
5              
6 1     1   3816 use Pegex::Parser;
  1         19049  
  1         28  
7 1     1   563 use Pegex::CPAN::Packages::Grammar;
  1         2  
  1         9  
8 1     1   533 use Pegex::CPAN::Packages::Data;
  1         3  
  1         99  
9              
10             sub parse {
11 1     1 0 58439 my ($self, $input) = @_;
12              
13 1         15 return Pegex::Parser->new(
14             grammar => Pegex::CPAN::Packages::Grammar->new,
15             receiver => Pegex::CPAN::Packages::Data->new,
16             # debug => 1,
17             )->parse($input);
18             }
19              
20             1;