File Coverage

blib/lib/YAML/Conditional.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	4	10	40.0
condition	1	3	33.3
subroutine	7	10	70.0
pod	4	5	80.0
total	37	53	69.8

package YAML::Conditional;
use 5.006; use strict; use warnings; our $VERSION = '0.02';
use YAML::XS qw/Dump DumpFile Load LoadFile/; use base 'Struct::Conditional';

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

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

sub decode {
	if ($_[1] !~ m/\n/ && -f $_[1]) {
		$_[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);
}

1;

__END__