'text/view' => [ 'View', 'Simple' ],
'text/explodingview' => [ 'View', 'Awful' ],
'text/broken' => 'Broken',
+ 'text/javascript', => 'JSONP',
+ 'application/x-javascript' => 'JSONP',
+ 'application/javascript' => 'JSONP',
+ 'text/my-csv' => [
+ 'Callback', {
+ deserialize => sub { return {split /,/, shift } },
+ serialize => sub { my $d = shift; join ',', %$d }
+ }
+ ],
},
);
sub monkey_put : Local : ActionClass('Deserialize') {
my ( $self, $c ) = @_;
if ( ref($c->req->data) eq "HASH" ) {
- my $out = $c->req->data->{'sushi'} . $c->req->data->{'chicken'}||'';
+ my $out = ($c->req->data->{'sushi'}||'') . ($c->req->data->{'chicken'}||'');
utf8::encode($out);
$c->res->output( $out );
} else {
$c->stash->{'rest'} = { monkey => 'likes chicken!', };
}
+sub xss_get : Local : ActionClass('Serialize') {
+ my ( $self, $c ) = @_;
+ $c->stash->{'rest'} = { monkey => 'likes chicken > sushi!', };
+}
+
+
1;