/usr/share/perl5/Pegex/Regex.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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | package Pegex::Regex;
use Pegex::Parser;
use Pegex::Grammar;
use Pegex::Receiver;
my @parsers;
my $PASS = '';
my $FAIL = '(*FAIL)';
sub generate_regex {
push @parsers, Pegex::Parser->new(
grammar => Pegex::Grammar->new( text => shift ),
receiver => Pegex::Receiver->new,
throw_on_error => 0,
);
my $index = $#parsers;
my $regex = "(??{Pegex::Regex::parse($index, \$_)})";
use re 'eval';
return qr{$regex};
}
sub parse {
my ($index, $input) = @_;
undef %/;
my $ast = $parsers[$index]->parse($input) or return $FAIL;
%/ = %$ast if ref($ast) eq 'HASH';
return $PASS;
};
# The following code was mutated from Damian Conway's Regexp::Grammars
sub import {
# Signal lexical scoping (active, unless something was exported)...
$^H{'Pegex::Regex::active'} = 1;
# Process any regexes in module's active lexical scope...
use overload;
overload::constant(
qr => sub {
my ($raw, $cooked, $type) = @_;
# If active scope and really a regex...
return generate_regex($raw)
if _module_is_active() and $type =~ /qq?/;
# Ignore everything else...
return $cooked;
}
);
}
# Deactivate module's regex effect when it is "anti-imported" with 'no'...
sub unimport {
# Signal lexical (non-)scoping...
$^H{'Pegex::Regex::active'} = 0;
}
# Encapsulate the hoopy user-defined pragma interface...
sub _module_is_active {
return (caller 1)[10]->{'Pegex::Regex::active'};
}
1;
|