example/modules/TemplateDumper.pm

#===============================================================================
# This just dumps out the results object.
# Need to use a query string to do anything interesting
#
#    $Id: TemplateDumper.pm,v 1.1 2001/12/06 07:32:11 whmoseley Exp $
#
#===============================================================================
package TemplateDumper;
use strict;

use Data::Dumper;

sub show_template {
    my ( $class, $template_params, $results ) = @_;

$Data::Dumper::Quotekeys = 0;
    print "Content-Type: text/plain\n\n",
          Dumper $template_params,
          Dumper $results;
}

1;


1	#===============================================================================
2	# This just dumps out the results object.
3	# Need to use a query string to do anything interesting
4	#
5	# $Id: TemplateDumper.pm,v 1.1 2001/12/06 07:32:11 whmoseley Exp $
6	#
7	#===============================================================================
8	package TemplateDumper;
9	use strict;
10
11	use Data::Dumper;
12
13	sub show_template {
14	my ( $class, $template_params, $results ) = @_;
15
16	$Data::Dumper::Quotekeys = 0;
17	print "Content-Type: text/plain\n\n",
18	Dumper $template_params,
19	Dumper $results;
20	}
21
22	1;
23
24