fix issue #33

examples/connection_hijack.pl6

@@ -1,33 +1,32 @@
 #!/usr/bin/env perl6
 
-use lib '../lib';
-use lib 'lib';
+use lib 'examples/lib';
 use HTTP::Server::Async;
+use HTTP::Server::Async::Plugins::Middleware::Hijack;
 
 my $s = HTTP::Server::Async.new;
-$s.middleware('HTTP::Server::Async::Plugins::Middleware::Hijack');
+$s.middleware(&hijack);
 
 #note that these handlers are never called, check 
 #  <repo>/examples/lib/HTTP/Server/Async/Plugins/Middleware/Hijack.pm6
 #  for more info
-$s.register(sub ($request, $response, $last) {
+$s.handler(sub ($request, $response) {
   $response.status = 404;
   'Registered sub called.'.say;
   #this is never called!
   $response.write('Registered Sub');
   $response.close;
-  $last(True); #Don't continue
+  False; #Don't continue
 });
 
-$s.register(sub ($request,$response,$last) {
+$s.handler(sub ($request,$response) {
   $response.status = 404;
   'Registered sub2 called.'.say;
   #this is never called!
   $response.write('Registered Sub');
   $response.close;
-  $last(False); #Continue if there is another
+  True; #Continue if there is another
 });
 
-$s.listen;
 say "listening";
-$s.block;
+await $s.listen;

examples/lib/HTTP/Server/Async/Plugins/Middleware/Hijack.pm6

@@ -1,10 +1,6 @@
-class HTTP::Server::Async::Plugins::Middleware::Hijack {
-  has $.status is rw;
+unit module HTTP::Server::Async::Plugins::Middleware::Hijack;
 
-  submethod BUILD(:$connection, :$request, :$response, :$tap) {
-    try {
-      $response.close("Hijacked.");
-    };
-    $!status = True;
-  }
-};
+sub hijack($request, $response) is export {
+  $response.close('Hijacked.');
+  False;
+}