--- AnyEvent-MP/MP.pm	2009/08/02 15:47:04	1.9
+++ AnyEvent-MP/MP.pm	2009/08/02 18:05:43	1.10
@@ -157,6 +157,24 @@
    $self
 }
 
+=item $portid = create_miniport { }
+
+Creates a "mini port", that is, a port without much #TODO
+
+=cut
+
+sub create_miniport(&) {
+   my $cb = shift;
+   my $id = "$AnyEvent::MP::Base::UNIQ." . ++$AnyEvent::MP::Base::ID;
+
+   $AnyEvent::MP::Base::PORT{$id} = sub {
+      &$cb
+         and delete $AnyEvent::MP::Base::PORT{$id};
+   };
+
+   "$NODE#$id"
+}
+
 package AnyEvent::MP::Port;
 
 =back