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{
Pound
Pound $pound
});
}
sub another_run_mode : Runmode {
my( $self ) = @_;
$self->header_add( -charset=>'UTF-8' );
Encode::encode('UTF-8', qq{
Infinity
Infinity $infinity
});
}
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