File Coverage

blib/lib/Dancer/Serializer/CBOR.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 3 3 100.0
total 35 35 100.0


line stmt bran cond sub pod time code
1 2     2   21616 use strict;
  2         7  
  2         100  
2 2     2   12 use warnings;
  2         4  
  2         76  
3             package Dancer::Serializer::CBOR;
4             # ABSTRACT: serializer for handling CBOR data
5              
6 2     2   8 use Carp;
  2         2  
  2         135  
7 2     2   562 use Dancer::Exception qw(:all);
  2         8134  
  2         368  
8 2     2   671 use CBOR::XS;
  2         4548  
  2         121  
9 2     2   15 use base 'Dancer::Serializer::Abstract';
  2         2  
  2         945  
10              
11             our $VERSION = '0.101'; # VERSION
12              
13              
14              
15             sub serialize {
16 5     5 1 9894 my ($self, $entity) = @_;
17 5         46 CBOR::XS::encode_cbor($entity);
18             }
19              
20              
21             sub deserialize {
22 4     4 1 2480 my ($self, $content) = @_;
23 4         46 CBOR::XS::decode_cbor($content);
24             }
25              
26              
27 5     5 1 2768 sub content_type {'application/cbor'}
28              
29              
30             1;
31              
32             __END__