line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Tiffany::TT; |
2
|
1
|
|
|
1
|
|
1031
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
38
|
|
3
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
27
|
|
4
|
1
|
|
|
1
|
|
4
|
use Template; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
168
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
sub new { |
7
|
3
|
|
|
3
|
0
|
2235
|
my ($class, $args) = @_; |
8
|
3
|
|
50
|
|
|
20
|
$args ||= +{}; |
9
|
3
|
|
|
|
|
30
|
my $tt = Template->new(%$args); |
10
|
3
|
|
|
|
|
43526
|
bless { |
11
|
|
|
|
|
|
|
tt => $tt, |
12
|
|
|
|
|
|
|
}, $class; |
13
|
|
|
|
|
|
|
} |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
sub render { |
16
|
3
|
|
|
3
|
0
|
20
|
my ($self, $stuff, @args) = @_; |
17
|
|
|
|
|
|
|
|
18
|
3
|
100
|
|
|
|
16
|
$self->{tt}->process( $stuff, @args, \my $out ) |
19
|
|
|
|
|
|
|
or die $self->{tt}->error; |
20
|
2
|
|
|
|
|
54552
|
$out; |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
1; |
24
|
|
|
|
|
|
|
__END__ |