[ create a new paste ] login | about

Link: http://codepad.org/Q9woDUpB    [ raw code | fork ]

Plain Text, pasted on Jul 1: 
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

#!/usr/bin/env perl
use Mojolicious::Lite;

app -> helper ('get_title', sub {
    my ($c, $dom) = @_;

    return $dom -> at ('title') -> text;
});

app -> helper ('async_title', sub {
    my ($c, $cb) = @_;

    $c -> ua -> get ('http://mojolicio.us', $cb);
});

get '/' => sub {
    my $c = shift;

    my $cb = sub {
        my ($ua, $tx) = @_;
        my $info = $c -> get_title ($tx -> res -> dom);
    
        $c -> render (
            template    => 'index',
            info        => $info,
        );
    };
    $c -> async_title ($cb);

    $c -> render_later;
};

get '/second' => sub {
    my $c = shift;

    my $cb = sub {
        my ($ua, $tx) = @_;
        my $info = $c -> get_title ($tx -> res -> dom);
    
        $info = sprintf "Extra processing on info to get: %s", scalar reverse $info;
    
        $c -> render (
            template    => 'index',
            info        => $info,
        );
    };
    $c -> async_title ($cb);

    $c -> render_later;
};

app -> start;

__DATA__

@@ index.html.ep
% layout 'default';
% title 'Welcome';
%= $info

@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
  <head><title><%= title %></title></head>
  <body><%= content %></body>
</html>


Create a new paste based on this one


Comments: