File Coverage

blib/lib/RPC/ExtDirect/Serialize.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	22	54.5

#
# WARNING: This package is deprecated.
#
# See RPC::ExtDirect::Config perldoc for the description
# of the instance-based configuration options to be used
# instead of the former global variables in this package.
#

package RPC::ExtDirect::Serialize;

use strict;
use warnings;
no  warnings 'uninitialized';       ## no critic

### PACKAGE GLOBAL VARIABLE ###
#
# Turn on for debugging
#
# DEPRECATED. Use `debug_serialize` or `debug` Config options instead.
#

our $DEBUG;

### PACKAGE GLOBAL VARIABLE ###
#
# Set Exception class name so it could be configured
#
# DEPRECATED. Use `exception_class_serialize` or `exception_class`
# Config options instead.
#

our $EXCEPTION_CLASS;

### PUBLIC CLASS METHOD ###
#
# Serialize the passed data into JSON form
#
# DEPRECATED. Use RPC::ExtDirect::Serializer->serializer instance method
# instead.
#

sub serialize {
    # Class name
    shift;

    my $mute_exceptions = shift;

    warn __PACKAGE__.'->serialize class method is deprecated; ' .
                     'use RPC::ExtDirect::Serializer->serialize ' .
                     'instance method instead';

    require RPC::ExtDirect::Config;
    require RPC::ExtDirect::Serializer;

    my $config     = RPC::ExtDirect::Config->new();
    my $serializer = RPC::ExtDirect::Serializer->new( config => $config );

    return $serializer->serialize(
        mute_exceptions => $mute_exceptions,
        data => [ @_ ],
    );
}

1;