123456789101112131415 #!/usr/bin/perluse strict;use warnings;BEGIN { delete $ENV{http_proxy} };use Carp ();$SIG{__WARN__} = sub { local $Carp::CarpLevel = 1; Carp::confess("Warning: ", @_) };use Test::More tests => 2;BEGIN { use_ok 'Thrall::Server' };BEGIN { use_ok 'Plack::Handler::Thrall' };
#!/usr/bin/perl
use
strict;
warnings;
BEGIN {
delete
$ENV
{http_proxy} };
Carp ();
$SIG
{__WARN__} =
sub
{
local
$Carp::CarpLevel
= 1; Carp::confess(
"Warning: "
,
@_
) };
Test::More
tests
=> 2;
BEGIN { use_ok
'Thrall::Server'
};
'Plack::Handler::Thrall'