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) 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::Storable;
12              
13 21     21   102 use base Event::RPC::Message;
  21         45  
  21         1874  
14              
15 21     21   116 use strict;
  21         43  
  21         342  
16 21     21   78 use utf8;
  21         54  
  21         111  
17              
18 21     21   10856 use Storable;
  21         55196  
  21         2126  
19              
20 231     231 0 1324 sub decode_message { Storable::thaw($_[1]) }
21 222     222 0 1620 sub encode_message { Storable::nfreeze ($_[1]) }
22              
23             1;
24              
25             __END__