File Coverage

blib/lib/Data/Record/Serialize/Encode/yaml.pm

Criterion	Covered	Total	%
statement	33	38	86.8
branch	2	6	33.3
condition			n/a
subroutine	12	12	100.0
pod	1	1	100.0
total	48	57	84.2

package Data::Record::Serialize::Encode::yaml;

# ABSTRACT: encode a record as YAML

use v5.12;
use Moo::Role;

use Data::Record::Serialize::Error { errors => ['yaml_backend'] }, -all;
use Types::Standard qw[ Enum ];

use JSON::PP;    # needed for JSON::PP::true/false

use namespace::clean;

our $VERSION = '2.03';

BEGIN {
    my $YAML_XS_VERSION = 0.67;

    if ( eval { require YAML::XS; YAML::XS->VERSION( $YAML_XS_VERSION ); 1; } ) {
        *encode = sub {
            ## no critic (Variables::ProhibitPackageVars)
            local $YAML::XS::Boolean = 'JSON::PP';
            YAML::XS::Dump( $_[1] );
        };
    }
    elsif ( eval { require YAML::PP } ) {
        my $processor = YAML::PP->new( boolean => 'JSON::PP' );
        *encode = sub { $processor->dump_string( $_[1] ) };
    }
    else {
        error( 'yaml_backend',
            "can't find either YAML::XS (>= $YAML_XS_VERSION) or YAML::PP. Please install one of them" );
    }
}

has '+numify'    => ( is => 'ro', default => 1 );
has '+stringify' => ( is => 'ro', default => 1 );

sub _needs_eol { 1 }









sub to_bool { $_[1] ? JSON::PP::true : JSON::PP::false }






with 'Data::Record::Serialize::Role::Encode';

1;

#
# This file is part of Data-Record-Serialize
#
# This software is Copyright (c) 2017 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__