#
# 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;