File Coverage

blib/lib/Event/RPC/Message/SerialiserBase.pm

Criterion	Covered	Total	%
statement	16	19	84.2
branch	2	12	16.6
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	23	38	60.5

# $Id: Message.pm,v 1.9 2014-01-28 15:40:10 joern Exp $

#-----------------------------------------------------------------------
# Copyright (C) 2002-2015 by Jörn Reder .
# All Rights Reserved. See file COPYRIGHT for details.
#
# This module is part of Event::RPC, which is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#-----------------------------------------------------------------------

package Event::RPC::Message::SerialiserBase;

use base Event::RPC::Message;

use strict;
use utf8;

sub UNIVERSAL::FREEZE {
    my ($object, $serialiser) = @_;
    my ($ref_type) = "$object" =~ /=(\w+)\(/;
    return $ref_type eq 'HASH'   ? [ $ref_type, [%{$object}] ] :
           $ref_type eq 'ARRAY'  ? [ $ref_type, [@{$object}] ] :
           $ref_type eq 'SCALAR' ? [ $ref_type,  ${$object}  ] :
           die "Unsupported reference type '$ref_type'";
}

sub UNIVERSAL::THAW {
    my ($class, $serialiser, $obj) = @_;
    return $obj->[0] eq 'HASH'   ? bless { @{$obj->[1]} }, $class :
           $obj->[0] eq 'ARRAY'  ? bless [ @{$obj->[1]} ], $class :
           $obj->[0] eq 'SCALAR' ? bless \   $obj->[1],    $class :
           die "Unsupported reference type '$obj->[0]'";
}

1;

__END__