From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MSMITH / HTML-Grabber-0.5 / penv / lib / perl5 / Dist / Zilla / Role / TextTemplate.pm 

            

              
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

              
package Dist::Zilla::Role::TextTemplate;
{
  $Dist::Zilla::Role::TextTemplate::VERSION = '4.300030';
}
# ABSTRACT: something that renders a Text::Template template string
use Moose::Role;
use namespace::autoclean;
use Text::Template;
# XXX: Later, add a way to set this in config. -- rjbs, 2008-06-02
has delim => (
  is   => 'ro',
  isa  => 'ArrayRef',
  lazy => 1,
  init_arg => undef,
  default  => sub { [ qw(  {{  }}  ) ] },
);
sub fill_in_string {
  my ($self, $string, $stash, $arg) = @_;
  $self->log_fatal("Cannot use undef as a template string")
    unless defined $string;
  my $tmpl = Text::Template->new(
    TYPE       => 'STRING',
    SOURCE     => $string,
    DELIMITERS => $self->delim,
    BROKEN     => sub { my %hash = @_; die $hash{error}; },
    %$arg,
  );
  $self->log_fatal("Could not create a Text::Template object from:\n$string")
    unless $tmpl;
  my $content = $tmpl->fill_in(HASH => $stash);
  $self->log_fatal("Filling in the template returned undef for:\n$string")
    unless defined $content;
  return $content;
}
1;
__END__
=pod
=head1 NAME
Dist::Zilla::Role::TextTemplate - something that renders a Text::Template template string
=head1 VERSION
version 4.300030
=head1 DESCRIPTION
Plugins implementing TextTemplate may call their own C<L</fill_in_string>>
method to render templates using L<Text::Template|Text::Template>.
=head1 ATTRIBUTES
=head2 delim
This attribute (which can't easily be set!) is a two-element array reference
returning the Text::Template delimiters to use.  It defaults to C<{{> and
C<}}>.
=head1 METHODS
=head2 fill_in_string
  my $rendered = $plugin->fill_in_string($template, \%stash, \%arg);
This uses Text::Template to fill in the given template using the variables
given in the C<%stash>.  The stash becomes the HASH argument to Text::Template,
so scalars must be scalar references rather than plain scalars.
C<%arg> is dereferenced and passed in as extra arguments to Text::Template's
C<fill_in_string> routine.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut