Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
Pegex
/
Tree
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Wrap.pm
282 B
-rw-r--r--
2020-02-13 20:00:53
Edit
Del
Wrap.pod
1.07 KB
-rw-r--r--
2020-02-13 20:00:53
Edit
Del
Editing: Wrap.pm
(282 B)
Path: /usr/share/perl5/vendor_perl/Pegex/Tree/Wrap.pm
Back
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;