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) 2002-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 18     18   90 use base Event::RPC::Message::SerialiserBase;
  18         34  
  18         12179  
14              
15 18     18   89 use strict;
  18         39  
  18         302  
16 18     18   77 use utf8;
  18         37  
  18         55  
17              
18 18     18   5680 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__