package MySerializer;

@MySerializer::ISA = qw/SOAP::Serializer/;

sub envelope {
        $_[2] = SOAP::Data->name($_[2])->uri($_[0]->uri()) if $_[1] =~ /^(?:method|response)$/;
        shift->SUPER::envelope(@_);
}


package SOAP::Apache;

use SOAP::Transport::HTTP;

my $server = SOAP::Transport::HTTP::Apache
                ->serializer(MySerializer->new)
                -> dispatch_to(... ... ...);

sub handler { $server->handler(@_) }

1;