### perl hermes/callback/node

use strict;
use warnings;

use Hermes;
use Vulcan::OptConf;

return sub
{
    my $db = Hermes->new( Vulcan::OptConf->load()->dump( 'range' ) )->db;
    my %cluster = map { $_ => 1 } map { @$_ } $db->select( 'name' );

    +{ map { $_ => [ map { @$_ } $db->select( 'node', name => [ 1, $_ ] ) ] }
        keys %cluster };
}
