File Coverage

blib/lib/Event/RPC/Message/Storable.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 20 22 90.9


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::Storable;
12              
13 18     18   89 use base Event::RPC::Message;
  18         41  
  18         1955  
14              
15 18     18   91 use strict;
  18         22  
  18         421  
16 18     18   87 use utf8;
  18         48  
  18         121  
17              
18 18     18   18085 use Storable;
  18         63191  
  18         2007  
19              
20 231     231 0 1185 sub decode_message { Storable::thaw($_[1]) }
21 222     222 0 1495 sub encode_message { Storable::nfreeze ($_[1]) }
22              
23             1;
24              
25             __END__