The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

PERIGRIN / XML-Toolkit-0.15 / lib / XML / Toolkit / Builder / ClassTemplate.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

              
package XML::Toolkit::Builder::ClassTemplate;
{
  $XML::Toolkit::Builder::ClassTemplate::VERSION = '0.15';
}
use Moose::Role;
use Template;
use namespace::autoclean;
with qw(XML::Toolkit::Cmd::ClassTemplate);
has tt_config => (
    isa     => 'HashRef',
    is      => 'ro',
    lazy    => 1,
    default => sub {
        {
            OUTPUT_PATH => '.',
            EVAL_PERL   => 1,
            POST_CHOMP  => 1,
        };
    },
);
has tt => (
    isa        => 'Template',
    is         => 'ro',
    lazy_build => 1,
    handles    => [qw(error)],
);
sub _build_tt { Template->new( $_[0]->tt_config ) }
sub render {
    return join '', map { $_[0]->render_class($_) } $_[0]->classes;
}
sub render_class {
    my ( $self, $class ) = @_;
    my $output;
    $self->tt->process( \$self->template, { meta => $class }, \$output )
      || die $self->error;
    return $output;
}
1;
__END__
=head1 NAME
XML::Toolkit::Builder::ClassTemplate
=head1 VERSION
version 0.15
=head1 SYNOPSIS
use XML::Toolkit::Builder::ClassTemplate;
=head1 DESCRIPTION
The XML::Toolkit::Builder::ClassTemplate class implements ...
=head1 METHODS
=head2 _build_template (method)
Parameters:
    none
Arguments:
    $_[0]
Insert description of method here...
=head2 render (method)
Parameters:
    none
Insert description of method here...
=head2 render_class (method)
Parameters:
    class
Insert description of method here...