/usr/lib/perl5/Template/Stash/XS.pm is in libtemplate-perl 2.22-0.1build2.
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 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | #============================================================= -*-Perl-*-
#
# Template::Stash::XS
#
# DESCRIPTION
#
# Perl bootstrap for XS module. Inherits methods from
# Template::Stash when not implemented in the XS module.
#
#========================================================================
package Template::Stash::XS;
use strict;
use warnings;
use Template;
use Template::Stash;
our $AUTOLOAD;
BEGIN {
require DynaLoader;
@Template::Stash::XS::ISA = qw( DynaLoader Template::Stash );
eval {
bootstrap Template::Stash::XS $Template::VERSION;
};
if ($@) {
die "Couldn't load Template::Stash::XS $Template::VERSION:\n\n$@\n";
}
}
sub DESTROY {
# no op
1;
}
# catch missing method calls here so perl doesn't barf
# trying to load *.al files
sub AUTOLOAD {
my ($self, @args) = @_;
my @c = caller(0);
my $auto = $AUTOLOAD;
$auto =~ s/.*:://;
$self =~ s/=.*//;
die "Can't locate object method \"$auto\"" .
" via package \"$self\" at $c[1] line $c[2]\n";
}
1;
__END__
=head1 NAME
Template::Stash::XS - High-speed variable stash written in C
=head1 SYNOPSIS
use Template;
use Template::Stash::XS;
my $stash = Template::Stash::XS->new(\%vars);
my $tt2 = Template->new({ STASH => $stash });
=head1 DESCRIPTION
The Template:Stash::XS module is an implementation of the
Template::Stash written in C. The "XS" in the name refers to Perl's
XS extension system for interfacing Perl to C code. It works just
like the regular Perl implementation of Template::Stash but runs about
twice as fast.
The easiest way to use the XS stash is to configure the Template
Toolkit to use it by default. You can do this at installation time
(when you run C<perl Makefile.PL>) by answering 'y' to the questions:
Do you want to build the XS Stash module? y
Do you want to use the XS Stash by default? y
See the F<INSTALL> file distributed with the Template Toolkit for further
details on installation.
If you don't elect to use the XS stash by default then you should use
the C<STASH> configuration item when you create a new Template object.
This should reference an XS stash object that you have created
manually.
use Template;
use Template::Stash::XS;
my $stash = Template::Stash::XS->new(\%vars);
my $tt2 = Template->new({ STASH => $stash });
Alternately, you can set the C<$Template::Config::STASH> package
variable like so:
use Template;
use Template::Config;
$Template::Config::STASH = 'Template::Stash::XS';
my $tt2 = Template->new();
The XS stash will then be automatically used.
If you want to use the XS stash by default and don't want to
re-install the Template Toolkit, then you can manually modify the
C<Template/Config.pm> module near line 42 to read:
$STASH = 'Template::Stash::XS';
=head1 BUGS
Please report bugs to the Template Toolkit mailing list
templates@template-toolkit.org
=head1 AUTHORS
Andy Wardley E<lt>abw@wardley.orgE<gt> L<http://wardley.org/>
Doug Steinwand E<lt>dsteinwand@citysearch.comE<gt>
=head1 COPYRIGHT
Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<Template::Stash>
|