Yet Another CPAN Grep

Puzzle ( E/EB/EBRUNI/Puzzle-0.21.tar.gz, EBRUNI, 2015; MetaCPAN )

Puzzle/lib/Puzzle/Template.pm ( view source; MetaCPAN )

->all_mason_args} ,%$args};
	return $self->html($as,$file);
}

use Switch;

use Data::Dumper;
use JSON::Any;
use XML::Simple;
use Text::CSV::Slurp;

sub printct {
		print $_[0]->sprintct($_[1], $_[2])


		# coerentemente con il tipo di content-type di uscita
		# supportato per ora, text, html, xml, json
		#

		my $ct = shift || $self->container->_mason->apache_req->content_type;

		my $pl2html = sub

		my $pl2text = sub { return Data::Dumper::Dumper($_[0]) };
		my $pl2json = sub { my $obj =  JSON::Any->new; return $obj->objToJson($_[0]) };
		my $pl2xml 	= sub { return XMLout($_[0]) };
		my $pl2csv