| Current Path : /usr/share/perl5/vendor_perl/Pegex/Tree/ |
| Current File : //usr/share/perl5/vendor_perl/Pegex/Tree/Wrap.pm |
package Pegex::Tree::Wrap;
use Pegex::Base;
extends 'Pegex::Receiver';
sub gotrule {
my $self = shift;
@_ || return ();
return {$self->{parser}{rule} => $_[0]}
}
sub final {
my $self = shift;
return(shift) if @_;
return {$self->{parser}{rule} => []}
}
1;