/usr/lib/x86_64-linux-gnu/perl5/5.22/Embperl/Syntax/Test.pm is in libembperl-perl 2.5.0-6.
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 | package Embperl::Syntax::Test;
use strict;
use Embperl::Syntax qw{:types} ;
use Embperl::Syntax::HTML ;
use base qw(Embperl::Syntax::HTML);
sub new
{
my $class = shift;
my $self = Embperl::Syntax::HTML::new($class);
if (!$self->{-testInit})
{
$self->{-testInit} = 1;
init($self);
}
return $self;
}
sub init {
my $self = shift;
$self->AddTagInside('testname', ['type'], undef, undef, {
perlcode => q[{
_ep_rp(%$x%, "test syntax %&'type%");
}]
});
}
1;
|