HTTP::Response => 0,
LWP::UserAgent => 0,
Module::Pluggable::Fast => 0,
+ Template => 0,
Text::ASCIITable => 0,
Tree::Simple => 0,
Tree::Simple::Visitor::FindByPath => 0,
URI => 0,
+ },
+ test => {
+ TESTS => join ' ',
+ (
+ glob('t/*.t'), glob('t/*/*.t'),
+ glob('t/*/*/*.t'), glob('t/*/*/*/*.t')
+ )
}
);
+print( '*' x 80, "\n" );
print( (qw/chansen draven fordmason naughton sri the_jester/)[ int( rand(6) ) ],
- " is the greatest and gabb is drunk again!\n" );
+ " is the greatest and gabb is ",
+ ((localtime)[2] > 12 ? "drunk" : "hung over"), " again!\n" );
+print( '*' x 80, "\n" );
eval "use mod_perl; use Apache::Request";
print qq/Install "mod_perl" and "Apache::Request" for Apache support.\n/ if $@;