X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FJSONP.pm;h=2c97acc18b16736d1f5130c4cd17aad9e6d22503;hb=5cb0b36f518a1f5e9c2225eec3187416319e8eec;hp=c37c06c1bc548814753ae496c03e7fd9be545212;hpb=610e03b2a87dafc4da0d192c882b75999891ad45;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/JSONP.pm b/lib/Catalyst/Action/Serialize/JSONP.pm index c37c06c..2c97acc 100644 --- a/lib/Catalyst/Action/Serialize/JSONP.pm +++ b/lib/Catalyst/Action/Serialize/JSONP.pm @@ -4,6 +4,9 @@ use namespace::autoclean; extends 'Catalyst::Action::Serialize::JSON'; +our $VERSION = '1.11'; +$VERSION = eval $VERSION; + after 'execute' => sub { my $self = shift; my ($controller, $c) = @_; @@ -16,7 +19,7 @@ after 'execute' => sub { my $callback_value = $c->req->param($callback_key); if ($callback_value) { - if ($callback_value =~ /^\w+$/) { + if ($callback_value =~ /^[.\w]+$/) { $c->res->content_type('text/javascript'); $c->res->output($callback_value.'('.$c->res->output().');'); } else { @@ -25,4 +28,6 @@ after 'execute' => sub { } }; +__PACKAGE__->meta->make_immutable; + 1;