/usr/share/perl5/Inline/C/Parser/Pegex.pm is in libinline-c-perl 0.76-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 25 26 27 28 29 30 31 32 33 34 | use strict; use warnings;
package Inline::C::Parser::Pegex;
use Pegex::Parser;
use Inline::C::Parser::Pegex::Grammar;
use Inline::C::Parser::Pegex::AST;
sub register {
{
extends => [qw(C)],
overrides => [qw(get_parser)],
}
}
sub get_parser {
my $o = shift;
Inline::C::_parser_test($o->{CONFIG}{DIRECTORY}, "Inline::C::Parser::Pegex::get_parser called\n") if $o->{CONFIG}{_TESTING};
bless {}, 'Inline::C::Parser::Pegex'
}
sub code {
my($self,$code) = @_;
$main::data = $self->{data} =
Pegex::Parser->new(
grammar => Inline::C::Parser::Pegex::Grammar->new,
receiver => Inline::C::Parser::Pegex::AST->new,
# debug => 1,
)->parse($code);
return 1;
}
1;
|