| 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__ |