File Coverage

blib/lib/App/RecordStream/OutputStream.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	16	16	100.0

package App::RecordStream::OutputStream;

=head1 NAME

App::RecordStream::OutputStream

=head1 AUTHOR

Benjamin Bernard
Keith Amling

=head1 DESCRIPTION

The class responsible for knowing the conversion from in-memory
records to record stream wire format (currently JSON).

=head1 SYNOPSIS

    use App::RecordStream::OutputStream;

    my $string = App::RecordStream::OutputStream::hashref_string($record);


=head1 PUBLIC METHODS

=over 4

=item my $string = App::RecordStream::OutputStream::hashref_string($record);

Takes a record and produces the string format for passage between
recs processes.

=back

=cut

our $VERSION = "4.0.24";

use strict;
use warnings;

use JSON::MaybeXS;

my $json = JSON->new();
$json->allow_nonref(1);
$json->allow_blessed(1);
$json->convert_blessed(1);
$json->canonical(1) if $ENV{HARNESS_ACTIVE};

sub hashref_string {
  my $record = shift;
  return $json->encode($record);
}

1;