/usr/share/perl5/Pegex/Tree/Wrap.pm is in libpegex-perl 0.55-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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;
|