#!perl # Copyright 2003-2005 The Apache Software Foundation # # Licensed under the Apache License, Version 2.0 (the "License"); # you may not use this file except in compliance with the License. # You may obtain a copy of the License at # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. # use strict; use warnings FATAL => 'all'; use FindBin; use constant IS_MOD_PERL_BUILD => -e "$FindBin::Bin/../lib/mod_perl.pm"; if (IS_MOD_PERL_BUILD) { unshift @INC, "$FindBin::Bin/../lib"; } else { eval { require Apache2 }; if ($@) { die "This script requires mod_perl 2.0\n", "$@"; } } require ModPerl::TestReport; ModPerl::TestReport->new(@ARGV)->run;