File Coverage

blib/lib/JSON/Conditional.pm

Criterion	Covered	Total	%
statement	24	36	66.6
branch	6	14	42.8
condition	1	3	33.3
subroutine	9	11	81.8
pod	5	5	100.0
total	45	69	65.2

package JSON::Conditional;
use 5.006; use strict; use warnings; our $VERSION = '0.04';
use JSON; use base 'Struct::Conditional';

our $JSON;

BEGIN {
	$JSON = JSON->new->pretty(1)->allow_blessed->convert_blessed;
}

sub encode {
	if ($_[2]) {
		$_[0]->encode_file($_[1], $_[2]);
	}
	$JSON->encode($_[1]);
}

sub encode_file {
	open my $file, '>', $_[2] or die "cannot open file $!";
	print $file $_[0]->encode($_[1]);
	close $file;
	return $file;
}

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

sub decode_file {
	open my $file, '<', $_[1] or die "cannot open file $!";
	my $content = do { local $/; <$file> };
	close $file;
	return $_[0]->decode($content);
}

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

1;

__END__