#!/usr/bin/perl
use
strict;
BEGIN {
$| = 1;
$^W = 1;
}
use
Test::NoWarnings;
use
POE::Declare::HTTP::Server ();
# Create the server
my
$server
= POE::Declare::HTTP::Server->new(
Hostname
=>
'127.0.0.1'
,
Port
=>
'8010'
,
Handler
=>
sub
{ },
);
isa_ok(
$server
,
'POE::Declare::HTTP::Server'
);
is(
$server
->Hostname,
'127.0.0.1'
,
'->Hostname ok'
);
is(
$server
->Port,
'8010'
,
'->Port ok'
);
is(
ref
(
$server
->Handler),
'CODE'
,
'->Handler ok'
);