12345678910111213141516171819 package Pegex::Tree;use Pegex::Base;extends 'Pegex::Receiver';sub gotrule { my $self = shift; @_ || return (); return {$self->{parser}{rule} => $_[0]} if $self->{parser}{parent}{-wrap}; return $_[0];}sub final { my $self = shift; return(shift) if @_; return [];}1;
package
Pegex::Tree;
use
Pegex::Base;
extends
'Pegex::Receiver'
;
sub
gotrule {
my
$self
=
shift
@_
||
return
();
{
->{parser}{rule} =>
$_
[0]}
if
->{parser}{parent}{-wrap};
[0];
}
final {
(
)
[];
1;