File Coverage

blib/lib/Dancer/Serializer/JSONP.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Dancer::Serializer::JSONP;
2             our $AUTHORITY = 'cpan:SUKRIA';
3             $Dancer::Serializer::JSONP::VERSION = '1.3520';
4             # ABSTRACT: serializer for handling JSONP data
5              
6 1     1   488 use strict;
  1         3  
  1         45  
7 1     1   8 use warnings;
  1         2  
  1         27  
8 1     1   5 use Dancer::SharedData;
  1         3  
  1         23  
9 1     1   6 use parent 'Dancer::Serializer::JSON';
  1         2  
  1         18  
10              
11             sub serialize {
12 1     1 1 2 my $self = shift;
13            
14 1         4 my $callback = Dancer::SharedData->request->params('query')->{callback};
15            
16 1         9 my $json = $self->SUPER::serialize(@_);
17            
18 1         61 return $callback . '(' . $json . ');';
19             }
20              
21 1     1 1 5 sub content_type {'application/javascript'}
22              
23             1;
24              
25             __END__