File Coverage

blib/lib/YAML/Ordered/Conditional.pm

Criterion	Covered	Total	%
statement	27	31	87.1
branch	4	10	40.0
condition	1	3	33.3
subroutine	9	12	75.0
pod	4	6	66.6
total	45	62	72.5

package YAML::Ordered::Conditional;

use 5.006; use strict; use warnings; our $VERSION = '0.04';
use YAML::As::Parsed qw/Dump DumpFile Load LoadFile/; use base 'Struct::Conditional';
use Tie::IxHash;

sub encode {
        Dump($_[1]);
}

sub encode_file {
	DumpFile($_[1], $_[2]);
}

sub decode {
	if ($_[1] !~ m/\n/ && -f $_[1]) {
		return $_[0]->decode_file($_[1]);
	}
        Load($_[1]);
}

sub decode_file {
	LoadFile($_[1], $_[2]);
}

sub compile {
        my ($self, $yaml, $params, $return_struct, $out_file) = @_;
        $yaml = $self->decode($yaml) unless ref $yaml;
        $params = $self->decode($params) unless ref $params;
        $yaml = $self->SUPER::compile($yaml, $params);
        return $return_struct
		? $yaml
		: $out_file
			? $self->encode_file($out_file, $yaml)
			: $self->encode($yaml);
}

sub instantiate_hash {
	my %hash;
	tie %hash, 'Tie::IxHash';
	return %hash;
}

1;


__END__