27 |
return '<hr><pre>' . encode_entities($t) . '</pre><hr>'; |
return '<hr><pre>' . encode_entities($t) . '</pre><hr>'; |
28 |
} |
} |
29 |
|
|
30 |
sub html { |
use MooseX::Method; |
31 |
|
|
32 |
|
method html => positional( |
33 |
|
{ isa => 'Continuity::RequestHolder', required => 1 }, |
34 |
|
) => sub { |
35 |
|
#sub html { |
36 |
my ( $self, $request ) = @_; |
my ( $self, $request ) = @_; |
37 |
|
|
38 |
my %param = $request->params; |
my %param = $request->params; |
83 |
body => $body, |
body => $body, |
84 |
) ); |
) ); |
85 |
$request->next; |
$request->next; |
86 |
} |
}; |
87 |
|
|
88 |
warn "## VCI loaded"; |
warn "## VCI loaded"; |
89 |
|
|