package Apache::FakeRequest::ViceRaid;
use base qw(Apache::FakeRequest);
sub lookup_uri {
  # do your stuff.
}

##</code><code>##

$ perl -e 'sub nonlvalue { return }; nonlvalue()=1;'
Can't modify non-lvalue subroutine call in scalar assignment at -e line 1, near "1;"