Re: Returning special characters in CGI::Application (bytes Froup.pm)

. I'm not sure how to go about troubleshooting this. Ideas?

:)Basic debugging checklist , brian's Guide to Solving Any Perl Problem, CGI Help Guide , Troubleshooting Perl CGI scripts, How do I post a question effectively? (post code), perlunitut: Unicode in Perl#I/O flow (the actual 5 minute tutorial)

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
[download]

Comment on Re: Returning special characters in CGI::Application (bytes Froup.pm) Download Code