--- AnyEvent-MP/MP.pm	2009/08/02 15:47:04	1.9
+++ AnyEvent-MP/MP.pm	2009/08/02 18:26:00	1.14
@@ -88,6 +88,7 @@
 our @EXPORT = qw(
    NODE $NODE $PORT snd rcv _any_
    create_port create_port_on
+   create_miniport
    become_slave become_public
 );
 
@@ -157,6 +158,25 @@
    $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 {
+#      unshift @_, "$NODE#$id";
+      &$cb
+         and delete $AnyEvent::MP::Base::PORT{$id};
+   };
+
+   "$NODE#$id"
+}
+
 package AnyEvent::MP::Port;
 
 =back