RFC_Grammar.pm

class IETF::RFC_Grammar;

# Thanks in part to Aaron Sherman
# and his article http://essays.ajs.com/2010/05/writing-perl-6-uri-module.html
# for inspiring this.

# below should be constant when implemented ...
my %rfc_grammar_build = (
     'rfc3896' => 'IETF::RFC_Grammar::URI'
);
my %rfc_grammar;


has $.rfc;
has $.grammar;
has $.parse_result;

method parse($parse_str) {
    $!parse_result = $!grammar.parse($parse_str) or die "Parse failed";
}

method parse_validating($parse_str) {
    $!parse_result = $!grammar.parse($parse_str, :rule<TOP_validating>)
        or die "Parse failed";
}

submethod BUILD(:$!rfc, :$!grammar) {}

method new(Str $rfc, $grammar?) {
    my $init_grammar = $grammar;

    if (
        (! $init_grammar.can('parse'))  and
        %rfc_grammar_build.exists($rfc)
    ) {
        unless %rfc_grammar.exists($rfc) {
            require %rfc_grammar_build{$rfc};
            %rfc_grammar{$rfc} = eval %rfc_grammar_build{$rfc};
        }
        $init_grammar = %rfc_grammar{$rfc};
    }
    if (! $init_grammar.can('parse')) {
        die "Need either rfc with known grammar or grammar";
    }

   return self.bless(*, rfc => $rfc, grammar => $init_grammar);
}