- my $s = shift;
- my @result;
- my $l = $self->{'_LEXER'};
-
- $l->from($s);
- @result = $self->{'_PARSER'}->YYParse(
- yylex => sub {
- my $tok = $l->next();
- return ('', undef) unless $tok;
- return ('', undef) if $l->eoi();
- return ($tok->name(), $tok->text());
- },
- yyerror => sub {
- $_[0]->YYAbort();
- },
- yydebug => 0x0);
- return $result[0]?{@{$result[0]}}:undef;