File Coverage

blib/lib/Parse/EBNF.pm

Criterion	Covered	Total	%
statement	17	43	39.5
branch	0	6	0.0
condition			n/a
subroutine	5	9	55.5
pod	5	5	100.0
total	27	63	42.8

package Parse::EBNF;

use strict;
use Parse::EBNF::Rule;

our $VERSION = 1.04;

sub new {
	my ($class) = @_;
	my $self = bless {}, $class;
	$self->{verbose} = 0;
	$self->{rules} = {};
	return $self;
}

sub parse_lines {
	my ($self, $lines) = @_;

	#
	# split into rules
	#

	my @rules;
	my $current;
	while(my $line = shift @{$lines}){
		if ($line =~ /^\s*\[\d+\]/){
			push @rules, $current;
			$current = '';
		}
		$line =~ s![\r\n\t]! !g;
		$line =~ s!\s{2,}! !g;
		$current .= $line;
	}
	push @rules, $current;


	#
	# create rules
	#

	for my $rule(@rules){
		if (defined($rule)){
			my $rule_obj = Parse::EBNF::Rule->new($rule);
			$self->{rules}->{$rule_obj->{name}} = $rule_obj;
		}
	}
}

sub rules {
	my ($self) = @_;
	return $self->{rules};
}

sub dump_rule {
	my ($self, $rule) = @_;

	unless ( defined $self->{rules}->{$rule} ){

		print "rule $rule not found\n";

	}else{

		use Data::Dumper;

		my $obj = $self->{rules}->{$rule};

		my $d = Data::Dumper->new([$obj]);

		print $d->Dump();
	}
}

sub dump_rules {
	my ($self) = @_;

	use Data::Dumper;

	my $d = Data::Dumper->new([$self->{rules}]);

	print $d->Dump();
}

1;

__END__