File Coverage

lib/Sisimai/Fact/YAML.pm

Criterion	Covered	Total	%
statement	8	37	21.6
branch	0	10	0.0
condition	0	2	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	11	54	20.3

package Sisimai::Fact::YAML;
use v5.26;
use strict;
use warnings;

sub dump {
    # Data dumper(YAML)
    # @param    [Sisimai::Fact] argvs   Object
    # @return   [String]                Dumped data or an empty string if the argument is missing
    my $class = shift;
    my $argvs = shift // return ""; return "" if ref $argvs ne 'Sisimai::Fact';
    my $damneddata = undef;
    my $modulename = undef;
    my $yamlstring = "";

    eval {
        require YAML;
        $modulename = 'YAML';
    };
    if( $@ ) {
        # Try to load YAML::Syck
        eval {
            require YAML::Syck;
            $modulename = 'YAML::Syck';
        };
        die ' ***error: Neither "YAML" nor "YAML::Syck" module is installed' if $@;
    }

    $damneddata = $argvs->damn;
    if( $modulename eq 'YAML' ) {
        # Use YAML module
        local $YAML::SortKeys       = 1;
        local $YAML::Stringify      = 0;
        local $YAML::UseHeader      = 1;
        local $YAML::UseBlock       = 0;
        local $YAML::CompressSeries = 0;
        $yamlstring = YAML::Dump($damneddata);

    } elsif( $modulename eq 'YAML::Syck' ) {
        # Use YAML::Syck module instead of YAML module.
        local $YAML::Syck::ImplicitTyping  = 1;
        local $YAML::Syck::Headless        = 0;
        local $YAML::Syck::ImplicitUnicode = 1;
        local $YAML::Syck::SingleQuote     = 0;
        local $YAML::Syck::SortKeys        = 1;
        $yamlstring = YAML::Syck::Dump($damneddata);
    }

    return $yamlstring;
}

1;
__END__