CGI-Application-Plugin-DevPopup-Params
view release on metacpan or search on metacpan
use strict;
use warnings;
use base qw/Exporter/;
use Data::Dumper;
our $VERSION = '1.01';
sub import {
my $c = scalar caller;
$c->add_callback( 'devpopup_report', \&_param_report );
goto &Exporter::import;
}
sub _param_report {
my $self = shift;
my $cgi = _cgi_report($self);
return $self->devpopup->add_report(
'title' => 'CGIApp params',
'summary' => 'CGI::Application parameters',
'report' => qq!<style type="text/css">tr.even{background-color:#eee}</style><table><thead><th colspan="2">Parameters</th></thead><tbody> $cgi </tbody></table>!,
);
}
sub _cgi_report {
my $self = shift;
{
package My::App;
use base qw/CGI::Application/;
use CGI::Application::Plugin::DevPopup;
use CGI::Application::Plugin::DevPopup::Params;
sub setup
{
my $self = shift;
$self->add_callback('devpopup_report', 'my_report');
$self->start_mode('runmode');
$self->run_modes([ qw/runmode/ ]);
return;
}
sub runmode
{
my $self = shift;
$self->param('ValueOne' => 'KeyOne');
return '<html><body>Hi there!</body></html>';
}
sub my_report
{
my $self = shift;
my $outputref = shift;
$self->devpopup->add_report(
title => 'Test 1',
report => 'Test 1 report body',
);
return;
}
}
$ENV{'CGI_APP_RETURN_ONLY'} = 1;
$ENV{'HTTP_HOST'} = undef; # RT #42315
( run in 3.361 seconds using v1.01-cache-2.11-cpan-364913b4093 )