unwind-protect

リクエストされたurlをhttp://から始まる形で取得するの術。

use Apache2::RequestRec;
use Apache2::URI;
sub handler : method {
    my ($class, $r) = @_;
    my $url = $r->construct_url($r->unparsed_uri));
      :
      :

unparsed_uri はuriをパースしない形、例えば%20とかをスペースに変換しないでそのまま返してくれる。mp1にはパース後を返すバージョンしかなくて困ったことがある。 construct_urlを使うにはApach2::URIをuseしなければならない、ってのはこんなことすると調べられる。

% perl -Mmod_perl2 -MModPerl::MethodLookup -e print_method construct_url
To use method 'construct_url' add:
        use Apache2::URI ();