… | |
… | |
314 | |
314 | |
315 | $cv |
315 | $cv |
316 | } |
316 | } |
317 | |
317 | |
318 | sub initialise_node(;$%) { |
318 | sub initialise_node(;$%) { |
319 | my ($profile) = @_; |
319 | my ($profile, %kv) = @_; |
320 | |
320 | |
321 | $profile = _nodename |
321 | $profile = _nodename |
322 | unless defined $profile; |
322 | unless defined $profile; |
323 | |
323 | |
324 | $CONFIG = AnyEvent::MP::Config::find_profile $profile; |
324 | $CONFIG = AnyEvent::MP::Config::find_profile $profile, %kv; |
325 | |
325 | |
326 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : $profile; |
326 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : $profile; |
327 | $NODE = $node |
327 | $NODE = $node |
328 | unless $node eq "anon/"; |
328 | unless $node eq "anon/"; |
329 | |
329 | |