package Froup;# Froup.pm
use parent qw/ CGI::Application /;
use CGI::Application::Plugin::AutoRunmode;
use utf8;
use Encode;
my $pound = "\N{U+00A3}\xA3";
my $infinity = "\N{U+221E}";
sub my_run_mode : StartRunmode {
my( $self ) = @_;
$self->header_add( -charset=>'UTF-8' );
Encode::encode('UTF-8',qq{<!DOCTYPE html><html><head>
<title> Pound </title> <meta charset="utf-8" /></meta></head>
<body> Pound <a href="?;rm=another_run_mode">$pound</a>
</body> </html>});
}
sub another_run_mode : Runmode {
my( $self ) = @_;
$self->header_add( -charset=>'UTF-8' );
Encode::encode('UTF-8', qq{<!DOCTYPE html><html><head>
<title> Infinity </title><meta charset="utf-8" /></meta></head>
<body> Infinity <a href="?;rm=my_run_mode">$infinity</a>
</body> </html>});
}
1;
#~ plackup -l localhost:80 -e require(Froup)
#~ perl Froup.pm
#~ perl Froup.pm rm=my_run_mode
#~ perl Froup.pm rm=another_run_mode
|