--- AnyEvent-MP/MP.pm	2009/08/02 14:44:37	1.8
+++ AnyEvent-MP/MP.pm	2009/08/02 18:26:00	1.14
@@ -84,10 +84,11 @@
 
 use base "Exporter";
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 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