/usr/share/perl5/Template/Plugin/YAML.pm is in libtemplate-plugin-yaml-perl 1.23-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 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 138 139 140 141 142 143 144 145 146 147 148 149 | use strict;
package Template::Plugin::YAML;
use Template::Plugin;
use base 'Template::Plugin';
use YAML qw(Dump Load DumpFile LoadFile);
use vars qw($VERSION);
$VERSION = '1.23';
=head1 NAME
Template::Plugin::YAML - Plugin interface to YAML
=head1 SYNOPSIS
[% USE YAML %]
[% YAML.dump(variable) %]
[% YAML.dump_html(variable) %]
[% value = YAML.undump(yaml_string) %]
[% YAML.dumpfile(filename, variable) %]
[% value = YAML.undumpfile(filename) %]
=head1 DESCRIPTION
This is a simple Template Toolkit Plugin Interface to the YAML module.
A YAML object will be instantiated via the following directive:
[% USE YAML %]
As a standard plugin, you can also specify its name in lower case:
[% USE yaml %]
=head1 METHODS
These are the methods supported by the YAML object.
=head2 dump( @variables )
Generates a raw text dump of the data structure(s) passed
[% USE Dumper %]
[% yaml.dump(myvar) %]
[% yaml.dump(myvar, yourvar) %]
=cut
sub dump {
my $self = shift;
my $content = Dump @_;
return $content;
}
=head2 dump_html( @variables )
Generates a dump of the data structures, as per C<dump>, but with the
characters E<lt>, E<gt> and E<amp> converted to their equivalent HTML
entities, spaces converted to and newlines converted to
E<lt>brE<gt>.
[% USE yaml %]
[% yaml.dump_html(myvar) %]
=cut
sub dump_html {
my $self = shift;
my $content = Dump @_;
for ($content) {
s/&/&/g;
s/ / /g;
s/</</g;
s/>/>/g;
s/\n/<br>\n/g;
}
return $content;
}
=head2 undump( $string )
Converts a YAML-encoded string into the equivalent data structure.
Here's a way to deep-copy a complex structure by completely serializing
the data.
[% USE yaml;
yaml_string = yaml.dump(complex_data_structure);
complex_copy = yaml.undump(yaml_string);
%]
=cut
sub undump {
my $self = shift;
return Load shift;
}
=head2 dumpfile( $file, @variables )
Converts the data to YAML encoding, and dumps it to the specified
filepath.
[% USE yaml; yaml.dumpfile(".storage", my_data) %]
=cut
sub dumpfile {
my $self = shift;
return DumpFile @_;
}
=head2 undumpfile( $file )
Loads the YAML-encoded data from the specified filepath
[% USE yaml; my_data = yaml.undumpfile(".storage") %]
=cut
sub undumpfile {
my $self = shift;
return LoadFile @_;
}
1;
__END__
=head1 AUTHORS
Richard Clamp <richardc@unixbeard.net>, with undump, undumpfile, and
dumpfile implementation by Randal L. Schwartz <merlyn@stonehenge.com>
based on Simon Matthews' L<Template::Plugin::Dumper>
=head1 COPYRIGHT
Copyright 2003, 2008 Richard Clamp 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::Plugin::Dumper>
=cut
|