File Coverage

blib/lib/ETL/Yertl/Format/default.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition	2	2	100.0
subroutine	3	3	100.0
pod	1	1	100.0
total	16	16	100.0

package ETL::Yertl::Format::default;
our $VERSION = '0.037';
# ABSTRACT: The default format for intra-Yertl communication

#pod =head1 SYNOPSIS
#pod
#pod     my $out_formatter = ETL::Yertl::Format::default->new;
#pod     print $formatter->write( $document );
#pod
#pod     my $in_formatter = ETL::Yertl::Format::default->new(
#pod         input => \*STDIN,
#pod     );
#pod     my $document = $formatter->read;
#pod
#pod =head1 DESCRIPTION
#pod
#pod This is the default format for Yertl programs talking to each other. By
#pod default, this is C, but it can be set to C by setting the
#pod C environment variable to C<"json">.
#pod
#pod Setting the default format to something besides YAML can help
#pod interoperate with other programs like
#pod L or L.
#pod
#pod =cut

use ETL::Yertl;
use Module::Runtime qw( use_module );

#pod =method new
#pod
#pod     my $formatter = ETL::Yertl::Format::default->new( %args );
#pod
#pod Get an instance of the default formatter. The arguments will be passed
#pod to the correct formatter module.
#pod
#pod =cut

sub new {
    my ( $class, @args ) = @_;
    my $format = $ENV{YERTL_FORMAT} || 'yaml';
    my $format_class = "ETL::Yertl::Format::$format";
    return use_module( $format_class )->new( @args );
}

1;

__END__