File Coverage

blib/lib/Event/RPC/Message/CBOR.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             # $Id: Message.pm,v 1.9 2014-01-28 15:40:10 joern Exp $
2              
3             #-----------------------------------------------------------------------
4             # Copyright (C) 2005-2015 by Jörn Reder .
5             # All Rights Reserved. See file COPYRIGHT for details.
6             #
7             # This module is part of Event::RPC, which is free software; you can
8             # redistribute it and/or modify it under the same terms as Perl itself.
9             #-----------------------------------------------------------------------
10              
11             package Event::RPC::Message::CBOR;
12              
13 21     21   115 use base Event::RPC::Message::SerialiserBase;
  21         46  
  21         11406  
14              
15 21     21   122 use strict;
  21         78  
  21         337  
16 21     21   82 use utf8;
  21         33  
  21         110  
17              
18 21     21   3084 use CBOR::XS;
  0            
  0            
19              
20             my $cbor = CBOR::XS->new;
21              
22             sub decode_message { $cbor->decode($_[1]) }
23             sub encode_message { $cbor->encode($_[1]) }
24              
25             1;
26              
27             __END__