File Coverage

blib/lib/Parse/Highlife/Token.pm

Criterion	Covered	Total	%
statement	6	16	37.5
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	0	3	0.0
total	8	25	32.0

package Parse::Highlife::Token;

use Parse::Highlife::Utils qw(params);
use Data::Dump qw(dump);

sub new
{
	my( $class, @args ) = @_;
	my $self = bless {}, $class;
	return $self -> _init( @args );
}

sub _init
{
	my( $self, $ignored )
		= params( \@_,
				-ignored => 0,
			);

	$self->{'is-ignored'} = $ignored;
	$self->{'name'} = '';
	return $self;
}

sub is_ignored
{
	my( $self) = @_;
	return $self->{'is-ignored'};
}

# abstract
sub match { return 0 }

1;