File: json.pl

package info (click to toggle)
libtext-xslate-perl 3.5.9-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,108 kB
  • sloc: perl: 19,756; ansic: 214; pascal: 182; makefile: 9; cs: 8
file content (63 lines) | stat: -rw-r--r-- 1,389 bytes parent folder | download | duplicates (5)
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
#!perl -w
use strict;

use Text::Xslate;
use JSON::XS;

use Benchmark qw(:all);
use Config; printf "Perl/%vd %s\n", $^V, $Config{archname};

foreach my $mod(qw(Text::Xslate JSON::XS)){
    print $mod, '/', $mod->VERSION, "\n";
}

my $n = shift(@ARGV) || 10;

my %vpath = (
    json => <<'TX',
<ul>
: for $books ->($item) {
    <li><:= $item.title :> (<: $item.author :>)</li>
: }
</ul>
TX
);

my $tx = Text::Xslate->new(
    path      => \%vpath,
    cache_dir => '.xslate_cache',
    cache     => 2,
);

my $json = JSON::XS->new();

my %vars = (
     books => [(
        { title  => 'Islands in the stream',
          author => 'Ernest Hemingway' },
        { title  => 'Beautiful code',
          author => 'Brian Kernighan, Jon Bentley, et. al.' },
        { title  => q{Atkinson and Hilgard's Introduction to Psychology With Infotrac}, # '
          author => 'Edward E. Smith, et. al.' },
        { title  => 'Programming Perl',
          author => 'Larry Wall, et.al.' },
        { title  => 'Compilers: Principles, Techniques, and Tools',
          author => 'Alfred V. Aho, et. al.' },
     ) x $n],
);

if(0) {
    print $tx->render(json => \%vars);
    print $json->encode(\%vars);
}

cmpthese -1 => {
    xslate => sub {
        my $body = $tx->render(json => \%vars);
        return;
    },
    json => sub {
        my $body = $json->encode(\%vars);
        return;
    },
};