Yet Another CPAN Grep

Any-Renderer ( K/KM/KMCGRATH/Any-Renderer-1.015_02.tar.gz, KMCGRATH, 2011; MetaCPAN )

Any-Renderer/lib/Any/Renderer.pm ( view source; MetaCPAN )

 include:

	- XML (via XML::Simple)
	- XML+XSLT
	- Data::Dumper
	- Javascript, Javascript::Anon & JSON
	- UrlEncoded
	- The formats supported by Data::Serializer (e.g. Config::General and Config::Wres

Any-Renderer ( K/KM/KMCGRATH/Any-Renderer-1.015_02.tar.gz, KMCGRATH, 2011; MetaCPAN )

Any-Renderer/lib/Any/Renderer/JavaScript/Anon.pm ( view source; MetaCPAN )

 $self;
}

sub render
{
  my ( $self, $data ) = @_;

  if ($self->{'format'} eq 'JSON') {
    TRACE ( "Rendering to JSON" );
    DUMP ( $data );

    return Data::JavaScript::Anon->anon_dump ( $data )

late
{
  return 0;
}

sub available_formats
{
  return [ "JavaScript::Anon", "Javascript::Anon", "JSON" ];
}

sub TRACE {}
sub DUMP {}

1;

=head1 NAME

Any::Renderer::JavaScript::Anon - renders anony

 JSON

Use the format 'JSON' to return completely anonymous data structures - i.e. with no leading
"var script_output = " and no trailing ";"

  perl -MAny::Renderer -e "print Any::Renderer->new('JSON