Yet Another CPAN Grep

Tickit-Builder ( T/TE/TEAM/Tickit-Builder-0.001.tar.gz, TEAM, 2011; MetaCPAN )

Tickit-Builder/lib/Tickit/Builder.pm ( view source; MetaCPAN )

;
	$type = 'json' unless $type;
	open my $fh, '<:encoding(utf-8)', $file or die "opening $file - $!";
	my $txt = do { local $/; <$fh> };
	if($type eq 'json') {
		require JSON;
		return JSON->new->deco