my $class = shift;
my $port = shift || 3000;
- my $server = Catalyst::Engine::Server::Simple->new($port);
+ my $server = Catalyst::Engine::HTTP::Server::Simple->new($port);
$server->handler( sub { $class->handler } );
$server->run;
=cut
-package Catalyst::Engine::Server::Simple;
+package Catalyst::Engine::HTTP::Server::Simple;
use strict;
use base 'HTTP::Server::Simple';