/usr/share/perl5/Pegex/Module.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 18 19 20 21 22 23 24 | package Pegex::Module;
use Pegex::Base;
has parser_class => 'Pegex::Parser', lazy => 0;
has grammar_class => (
default => sub {
my $class = ref($_[0]);
die "$class needs a 'grammar_class' property";
},
);
has receiver_class => 'Pegex::Tree';
sub parse {
my ($self, $input) = @_;
$self = $self->new unless ref $self;
# use XXX; XXX $self;
my $parser = $self->parser_class->new(
grammar => $self->grammar_class->new,
receiver => $self->receiver_class->new,
);
$parser->parse($input);
}
1;
|