File Coverage

blib/lib/Raisin/Encoder/Form.pm
Criterion Covered Total %
statement 11 14 78.5
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 4 0.0
total 16 25 64.0


line stmt bran cond sub pod time code
1             #!perl
2             #PODNAME: Raisin::Encoder::Form
3             #ABSTRACT: Form deserialization plugin for Raisin.
4              
5 4     4   167714 use strict;
  4         11  
  4         100  
6 4     4   16 use warnings;
  4         7  
  4         154  
7              
8             package Raisin::Encoder::Form;
9             $Raisin::Encoder::Form::VERSION = '0.94';
10 4     4   18 use Encode qw(decode_utf8);
  4         7  
  4         463  
11              
12 21     21 0 975 sub detectable_by { [qw(application/x-www-form-urlencoded multipart/form-data)] }
13 0     0 0 0 sub content_type { 'text/plain; charset=utf-8' }
14              
15             sub serialize {
16 0     0 0 0 Raisin::log(error => 'Raisin:Encoder::Form doesn\'t support serialization');
17 0         0 die;
18             }
19              
20 4     4 0 13274 sub deserialize { $_[1]->body_parameters }
21              
22             1;
23              
24             __END__