APR::Request::Param subclassing

[John ORourke <jo...@o-rourke.org>]

Hi, I know this isn't the apreq list but....

I don't suppose anyone has an example of subclassing APR::Request::Param?

I'm trying this:

package My::Handler;
sub handler {
    ...
    my $query=Apache2::Request->new();
    my $params=$query->param();
    $params->param_class('My::Param::UTF8');
    ...
}

package My::Param::UTF8;
@ISA=qw( APR::Request::Param );
sub new {
    my $class=shift;
    my $param=$class->SUPER::new(@_);
    $param and $param->charset(8); # set as UTF-8
    bless $param,$class;
}

It just seems like a really neat solution, except that the 'new' method 
isn't being called!

cheers
John


Clinton Gormley wrote:
> Hi John
>
> I've been using libapreq, which has a charset method:
> http://search.cpan.org/~joesuf/libapreq2-2.08/glue/perl/xsbuilder/APR/Request/Param/Param.pod#charset
>