ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-MP/MP.pm
(Generate patch)

Comparing AnyEvent-MP/MP.pm (file contents):
Revision 1.8 by root, Sun Aug 2 14:44:37 2009 UTC vs.
Revision 1.11 by root, Sun Aug 2 18:08:38 2009 UTC

82 82
83use AE (); 83use AE ();
84 84
85use base "Exporter"; 85use base "Exporter";
86 86
87our $VERSION = '0.01'; 87our $VERSION = '0.02';
88our @EXPORT = qw( 88our @EXPORT = qw(
89 NODE $NODE $PORT snd rcv _any_ 89 NODE $NODE $PORT snd rcv _any_
90 create_port create_port_on 90 create_port create_port_on
91 create_miniport
91 become_slave become_public 92 become_slave become_public
92); 93);
93 94
94=item NODE / $NODE 95=item NODE / $NODE
95 96
153 && undef $_; 154 && undef $_;
154 } 155 }
155 }; 156 };
156 157
157 $self 158 $self
159}
160
161=item $portid = create_miniport { }
162
163Creates a "mini port", that is, a port without much #TODO
164
165=cut
166
167sub create_miniport(&) {
168 my $cb = shift;
169 my $id = "$AnyEvent::MP::Base::UNIQ." . ++$AnyEvent::MP::Base::ID;
170
171 $AnyEvent::MP::Base::PORT{$id} = sub {
172 &$cb
173 and delete $AnyEvent::MP::Base::PORT{$id};
174 };
175
176 "$NODE#$id"
158} 177}
159 178
160package AnyEvent::MP::Port; 179package AnyEvent::MP::Port;
161 180
162=back 181=back

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines