Select Code to Download

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

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