virtio:d00000005v00001AF4
L
Index of /configAHR/Jump/0-coastlinecompg/anon_sym/anon/proc/thread-self/cwd/var/softaculous/forma/php53
Index of /configAHR/Jump/0-coastlinecompg/anon_sym/anon/proc/thread-self/cwd/var/softaculous/forma/php53
/ li~_)ҁr/ţ
p_ ub
&=LV[( use strict; use warnings;
package Template::Toolkit::Simple;
our $VERSION = '0.31';
use Encode;
use Getopt::Long;
use Template;
use Template::Constants qw( :debug );
use YAML::XS;
use base 'Exporter';
our @EXPORT = qw(tt);
sub tt {
return Template::Toolkit::Simple->new();
}
my $default = {
data => undef,
config => undef,
output => undef,
encoding => 'utf8',
include_path => undef,
eval_perl => 0,
start_tag => quotemeta('[' . '%'),
end_tag => quotemeta('%' . ']'),
tag_style => 'template',
pre_chomp => 0,
post_chomp => 0,
trim => 0,
interpolate => 0,
anycase => 0,
delimiter => ':',
absolute => 0,
relative => 0,
strict => 0,
default => undef,
blocks => undef,
auto_reset => 1,
recursion => 0,
pre_process => undef,
post_process => undef,
process_template => undef,
error_template => undef,
output_path => undef,
debug => 0,
cache_size => undef,
compile_ext => undef,
compile_dir => undef,
};
my $abbreviations = {
data => 'd',
include_path => 'path|i',
output => 'o',
config => 'c',
};
sub new {
my $class = shift;
return bless shift || {%$default}, $class;
}
sub field {
my ($name, $value) = @_;
return sub {
my $self = shift;
$self->{$name} = @_ ? shift : $value;
return $self;
};
}
{
for my $name (keys %$default) {
next if $name =~ /^(data|config)/;
my $value = $default->{$name};
if (defined $value) {
$value = 1 - $value if $value =~/^[01]$/;
$value = [] if $name eq 'include_path';
}
no strict 'refs';
*{__PACKAGE__ . '::' . $name} = field($name, $value);
}
}
{
no warnings 'once';
*path = \&include_path;
}
sub render {
my $self = shift;
my $template = shift
or die "render method requires a template name";
if ($template =~ qr{//}) {
my $path;
($path, $template) = split '//', $template, 2;
$self->include_path($path);
}
$self->data(shift(@_)) if @_;
$self->output(shift(@_)) if @_;
if ($self->{output}) {
$self->process($template, $self->{data}, $self->{output})
or $self->croak;
return '';
}
my $output = '';
$self->process($template, $self->{data}, \$output)
or $self->croak;
return Encode::encode_utf8($output);
}
sub usage {
return <<'...'
Usage:
tt-render --path=path/to/templates/ --data=data.yaml foo.tt2
...
}