X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FJSONP.pm;h=45e4f890f21c662f454d0f6d679fde6073db1029;hb=HEAD;hp=f0c86cf44ab226453710ad2953bb8055ac76abd1;hpb=ab8ab47a739539677817d6a7493b888c7a7815f6;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/JSONP.pm b/lib/Catalyst/Action/Serialize/JSONP.pm index f0c86cf..45e4f89 100644 --- a/lib/Catalyst/Action/Serialize/JSONP.pm +++ b/lib/Catalyst/Action/Serialize/JSONP.pm @@ -1,12 +1,10 @@ package Catalyst::Action::Serialize::JSONP; + use Moose; use namespace::autoclean; extends 'Catalyst::Action::Serialize::JSON'; -our $VERSION = '0.85'; -$VERSION = eval $VERSION; - after 'execute' => sub { my $self = shift; my ($controller, $c) = @_; @@ -19,7 +17,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 { @@ -28,4 +26,6 @@ after 'execute' => sub { } }; +__PACKAGE__->meta->make_immutable; + 1;