root/lang/perl/R-Writer/trunk/lib/R/Writer/Encoder.pm @ 7341

# $Id$
#
# Copyright (c) 2008 Daisuke Maki <daisuke@endeworks.jp>
# All rights reserved.

package R::Writer::Encoder;
use strict;
use warnings;

use JSON::XS (); # XXX - Remove this in the future?
our $CODER = JSON::XS->new->allow_nonref;

sub new    { bless \my $c, shift }
sub encode { $CODER->encode($_[1]) }

1;

__END__

=head1 NAME

R::Writer::Encoder - Default Encoder

=head1 SYNOPSIS

  use R::Writer::Encoder;
  # Internal use only

=head1 METHODS

=head2 new

=head2 encode

=cut