#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 5;
# 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' );