Basic Testing 

#!/usr/bin/perl
use strict;
use warnings;

use Test::More;
use HTTP::Request::Common;
use HTTP::Engine;
use MyApp;

plan tests => 2;

my $engine = HTTP::Engine->new({
    interface => {
        module => 'Test',
        request_handler => \&MyApp::handler
    }
});

my $req = GET( q{http://example.com/} );
my $res = $engine->run( $req );

is( ref $res, q{HTTP::Response}, q{Check we got a HTTP::Response} );
is( $res->code, 200, q{Found} );
1..2
ok 1 - Check we got a HTTP::Response
ok 2 - Found