JSONP support -- taken from Catalyst::Action::Serialize::JSONP

rjbs · Nov 14, 2011 · a6001c2 · a6001c2
1 parent f7dfada
commit a6001c2
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/lib/Catalyst/Action/Serialize/SixteenColors/API/JSON.pm b/lib/Catalyst/Action/Serialize/SixteenColors/API/JSON.pm
@@ -16,4 +16,28 @@ before 'execute' => sub {
     }
 };
 
+after 'execute' => sub {
+    my $self = shift;
+    my ($controller, $c) = @_;
+
+    # Ripped from Catalyst::Action::Serialize::JSONP
+
+    my $callback_key = (
+        $controller->{ serialize } ?
+            $controller->{ serialize }->{ callback_key } :
+            $controller->{ callback_key }
+    ) || 'callback';
+
+    my $callback_value = $c->req->param( $callback_key );
+    if ( $callback_value ) {
+        if ($callback_value =~ /^\w+$/ ) {
+            $c->res->content_type( 'text/javascript' );
+            $c->res->output( $callback_value . '(' . $c->res->output() . ');' );
+        }
+        else {
+            warn 'Callback: '.$callback_value.' will not generate valid Javascript. Falling back to JSON output';
+        }
+    }
+};
+
 1;