use 5.008;
use strict;
use warnings;
+use Plack::Request;
use PublicInbox::Config qw(try_cat);
use URI::Escape qw(uri_escape_utf8 uri_unescape);
use constant SSOMA_URL => '//ssoma.public-inbox.org/';
require Digest::SHA;
require POSIX;
- eval {
- require PublicInbox::Search;
- require PublicInbox::SearchView;
- require PublicInbox::Mbox;
- require IO::Compress::Gzip;
- };
+ foreach (qw(PublicInbox::Search PublicInbox::SearchView
+ PublicInbox::Mbox IO::Compress::Gzip
+ PublicInbox::NewsWWW PublicInbox::NewsGroup)) {
+ eval "require $_;";
+ }
}
# private functions below
sub ctx_get {
my ($ctx, $key) = @_;
my $val = $ctx->{$key};
- (defined $val && $val ne '') or die "BUG: bad ctx, $key unusable\n";
+ (defined $val && $val ne '') or die "BUG: bad ctx, $key unusable";
$val;
}