view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    *   Define "encode()" class method.

    That's all. Here's an example of implementation, extracted from
    Apache::ACEProxy::UTF8_RACE.

      package Apache::ACEProxy::UTF8_RACE;

      use base qw(Apache::ACEProxy);
      use Convert::RACE qw(to_race);
      use Unicode::String qw(utf8);

      sub encode {
          my($class, $domain) = @_;
          return to_race(utf8($domain)->utf16);
      }

    Note that you should define "encode()" method as a class method.
    Argument $domain is a (maybe UTF8) string that your browser sends to the
    proxy server.

    At last, remember to add the following line to httpd.conf or so:

      PerlTransHandler Apache::ACEProxy::UTF8_RACE

lib/Apache/ACEProxy.pm  view on Meta::CPAN

=back

That's all. Here's an example of implementation, extracted from
Apache::ACEProxy::UTF8_RACE.

  package Apache::ACEProxy::UTF8_RACE;

  use base qw(Apache::ACEProxy);
  use Convert::RACE qw(to_race);
  use Unicode::String qw(utf8);

  sub encode {
      my($class, $domain) = @_;
      return to_race(utf8($domain)->utf16);
  }

Note that you should define C<encode()> method as a class
method. Argument $domain is a (maybe UTF8) string that your browser
sends to the proxy server.

At last, remember to add the following line to httpd.conf or so:

  PerlTransHandler Apache::ACEProxy::UTF8_RACE

lib/Apache/ACEProxy/UTF8_RACE.pm  view on Meta::CPAN

package Apache::ACEProxy::UTF8_RACE;

use strict;
use vars qw($VERSION);
$VERSION = '0.01';

use base qw(Apache::ACEProxy);

use Convert::RACE qw(to_race);
use Unicode::String qw(utf8);

sub encode {
    my($class, $domain) = @_;
    return to_race(utf8($domain)->utf16);
}

1;
__END__

=head1 NAME

Apache::ACEProxy::UTF8_RACE - IDN compatible RACE proxy server

=head1 SYNOPSIS