File Coverage

blib/lib/Petal/CodePerl/GrammarLoader.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

use strict;
use warnings;

my $CompiledGrammar = $ENV{CODEPERL_DEV} ? 0 : 1;

# handy for being able alter the grammar during development

my $parser;

if($CompiledGrammar)
{
	require Petal::CodePerl::Parser;
	$parser = Petal::CodePerl::Parser->new;
}
else
{
	require Parse::RecDescent;

	my $petales_grammar = do "grammar" || die "No grammar";

	local $Parse::RecDescent::skip = "";
	$::RD_HINT = 1;
	#$::RD_TRACE = 1;

	$parser = Parse::RecDescent->new($petales_grammar) || die "Parser didn't compile";
}

$Petal::CodePerl::Compiler::Parser = $parser;