package Portal::MainFilter; use strict; use warnings; use Apache2::Filter (); use Apache2::RequestRec (); use Apache2::RequestIO (); use Apache2::Const -compile => qw(OK); sub handler { my $filter = shift; my $ctx = $filter->ctx; # unless ($filter->ctx) { # init($filter); # $filter->ctx(1); # } return Apache2::Const::OK; } 1;