/usr/share/perl5/XML/PatAct/PatternTempl.pm is in libxml-perl 0.08-2.
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 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | # This template file is in the Public Domain.
# You may do anything you want with this file.
#
# $Id: PatternTempl.pm,v 1.2 1999/08/16 16:04:03 kmacleod Exp $
#
# replace all occurrences of PATTERN with the name of your module!
use strict;
package XML::PatAct::PATTERN;
sub new {
my $type = shift;
my $self = ($#_ == 0) ? { %{ (shift) } } : { @_ };
# perform any one-time initializations
return bless $self, $type;
}
sub initialize {
my ($self, $driver) = @_;
$self->{Driver} = $driver;
# perform initializations for each XML instance
}
sub finalize {
my $self = shift;
# clean up any state information
$self->{Driver} = undef;
}
sub match {
my ($self, $element, $names, $nodes) = @_;
# Use the Patterns list to match a pattern
return undef;
}
1;
__END__
=head1 NAME
XML::PatAct::PATTERN - A pattern module for
=head1 SYNOPSIS
use XML::PatAct::PATTERN;
my $patterns = [ PATTERN => ACTION,
... ]
my $matcher = XML::PatAct::PATTERN->new( Patterns => $patterns );
=head1 DESCRIPTION
XML::PatAct::PATTERN is a pattern module for use with PatAct action
modules for applying pattern-action lists to XML parses or trees.
XML::PatAct::PATTERN ...
Parameters can be passed as a list of key, value pairs or a hash.
DESCRIBE THE FORMAT OR LANGUAGE OF YOUR PATTERNS HERE
=head1 AUTHOR
This template file was written by Ken MacLeod, ken@bitsko.slc.ut.us
=head1 SEE ALSO
perl(1)
``Using PatAct Modules'' and ``Creating PatAct Modules'' in libxml-perl.
=cut
|