File Coverage

blib/lib/SeeAlso/Format/seealso.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package SeeAlso::Format::seealso;
2             $SeeAlso::Format::seealso::VERSION = '0.14';
3             #ABSTRACT: SeeAlso response format
4 3     3   18 use strict;
  3         5  
  3         121  
5 3     3   17 use warnings;
  3         5  
  3         106  
6              
7 3     3   16 use base 'SeeAlso::Format';
  3         7  
  3         565  
8              
9 8     8 0 50 sub type { 'text/javascript' }
10              
11             sub psgi {
12 5     5 0 11 my ($self, $result) = @_;
13 5         110 my $json = JSON->new->encode( $result );
14 5         43 return [ 200, [ "Content-Type" => $self->type ], [ $json ] ];
15             }
16              
17             1;
18              
19             __END__