… | |
… | |
415 | |
415 | |
416 | # connect to all seednodes |
416 | # connect to all seednodes |
417 | AnyEvent::MP::Global::set_seeds (map $_->recv, map _resolve $_, @$seeds); |
417 | AnyEvent::MP::Global::set_seeds (map $_->recv, map _resolve $_, @$seeds); |
418 | |
418 | |
419 | for (@{ $CONFIG->{services} }) { |
419 | for (@{ $CONFIG->{services} }) { |
|
|
420 | if (ref) { |
|
|
421 | my ($func, @args) = @$_; |
|
|
422 | (load_func $func)->(@args); |
420 | if (s/::$//) { |
423 | } elsif (s/::$//) { |
421 | eval "require $_"; |
424 | eval "require $_"; |
422 | die $@ if $@; |
425 | die $@ if $@; |
423 | } else { |
426 | } else { |
424 | (load_func $_)->(); |
427 | (load_func $_)->(); |
425 | } |
428 | } |