File Coverage

blib/lib/Parse/YALALR/Kernel.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	26	61.5

# -*- cperl -*-

package Parse::YALALR::Kernel;
use Parse::YALALR::Parser;

use fields (id =>              #
	    items =>           #
	    shifts =>          #
	    reduces =>         #
	    actions =>         #
	    REDUCE_WHY =>      #
	    SHIFT_WHY =>       #
);

use strict;

sub new {
    my $class = shift;
    my Parse::YALALR::Parser $parser = shift;
    my ($items) = @_;

    no strict 'refs';
    my Parse::YALALR::Kernel $self = bless [ \%{"${class}::FIELDS"} ], $class;
    $self->{id} = $parser->{nstates}++;
    $self->{items} = $items;
    return $self;
}

1;