Commit | Line | Data |
---|---|---|
f7754f67 | 1 | package Test::Serialize::View::Awful; |
2 | ||
3 | use base Catalyst::View; | |
4 | ||
5 | sub render { | |
6 | my ($self, $c, $template) = @_; | |
7 | die "I don't know how to do that!"; | |
8 | } | |
9 | ||
10 | sub process { | |
11 | my ($self, $c) = @_; | |
12 | ||
13 | my $output = eval { | |
14 | $self->render($c, "blah"); | |
15 | }; | |
16 | ||
17 | if ($@) { | |
18 | my $error = qq/Couldn't render template. Error: "$@"/; | |
19 | $c->error($error); | |
20 | return 0; | |
21 | } | |
22 | ||
23 | $c->res->body($output); | |
24 | return 1; | |
25 | } | |
26 | ||
27 | 1; |