File Coverage

blib/lib/Pegex/CPAN/Packages/Data.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	3	33.3
total	18	20	90.0

package Pegex::CPAN::Packages::Data;

use Pegex::Base;
extends 'Pegex::Tree';

has data => {};

sub final {
    my ($self, $got) = @_;
    return $self->data;
}

sub got_meta_section {
    my ($self, $got) = @_;
    $self->{data}{meta} = { map { @$_ } @$got };
}

sub got_index_line {
    my ($self, $got) = @_;

    my ( $package, $version, $distribution ) = @$got;

    $self->{data}{index}{$distribution}{$package} =
      'undef' eq $version
      ? undef
      : $version;
}

1;