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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Catmandu::Exporter::Template;
my $file = "";
my $exporter = Catmandu::Exporter::Template->new(
file => \$file,
template => 'out.html',
start_tag => "<%",
end_tag => "!>"
);
my $data = {author => "brian d foy", title => "Mastering Perl",};
$exporter->add($data);
my $result = <<EOF;
Author: brian d foy
Title: "Mastering Perl"
EOF
is($file, $result, "html extension");
my $exporter2 = Catmandu::Exporter::Template->new(
file => \$file,
template => 'out.tt',
start_tag => "<%",
end_tag => "!>"
);
$exporter2->add($data);
is($file, $result, "tt extension");
done_testing;
|
