package TransHandler;
use warnings;
use strict;
use Apache::Constants qw(DECLINED);
sub handler {
    my $r = shift;
    my $uri = $r->uri();
# ... shortened
    elsif ($uri =~ m|^/one/(\d+)/|) {
        $r->uri("/xyz/Handler.pm"); return DECLINED;
    }
# ... shortened
    return DECLINED;
} # handler