view release on metacpan or  search on metacpan

lib/App/GhaInstall.pm  view on Meta::CPAN

	$hash->{metatype} = 'JSON';
	return $hash;
}

sub read_yaml {
	my $file = shift;
	return unless -f $file;
	
	my $hash;
	
	if ( eval { require JSON::XS; 1 } ) {
		$hash = YAML::XS::Load( slurp($file) );
	}
	else {
		# Bundled version of YAML::Tiny
		require App::GhaInstall::YAML;
		$hash = YAML::Tiny::Load( slurp($file) );		
	}
	
	return unless ref($hash) eq 'HASH';