X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FJSONP.pm;h=31e3ba571a97d5bf366bf64ae0a509ccb41a9033;hb=d0822465cc09629df95ad9c522bce758f2badc8c;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..31e3ba5 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.02'; +$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;