/usr/share/perl5/Template/Stash/AutoEscaping/RawString.pm is in libtemplate-stash-autoescaping-perl 0.0303-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 Template::Stash::AutoEscaping::RawString;
use strict;
use warnings;
use overload '""' => \&as_string;
sub new {
my ( $klass, $str ) = @_;
bless \$str, $klass;
}
sub as_string {
my $self = shift;
return $$self;
}
1;
=encoding utf8
=head1 NAME
Template::Stash::AutoEscaping::RawString - raw string support for
L<Template::Stash::AutoEscaping>. Internal use.
=head1 SYNOPSIS
See L<Template::Stash::AutoEscaping> .
=head1 DESCRIPTION
For internal use.
=head2 Methods
=head2 new
Constructor.
=head2 as_string
Return the string.
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 AUTHOR
mala E<lt>cpan@ma.laE<gt> (original author of L<Template::Stash::AutoEscape>)
Shlomi Fish (L<http://www.shlomifish.org/>) added some enhancements and
fixes, while disclaiming all rights, as part of his work for
L<http://reask.com/> and released the result as
C<Template::Stash::AutoEscaping> .
=head1 SEE ALSO
L<Template::Stash::AutoEscaping>
=cut
|