No description, website, or topics provided.
Perl Perl6
Switch branches/tags
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
author
lib/Data
t
xt
.dim.pl
.gitignore
Build.PL
Changes
LICENSE
META.json
README.md
cpanfile
minil.toml

README.md

NAME

Data::RuledCluster - clustering data resolver

VERSION

This document describes Data::RuledCluster version 0.06.

SYNOPSIS

use Data::RuledCluster;

my $config = +{
    clusters => +{
        USER_W => [qw/USER001_W USER002_W/],
        USER_R => [qw/USER001_R USER002_R/],
    },
    node => +{
        USER001_W => ['dbi:mysql:user001', 'root', '',],
        USER002_W => ['dbi:mysql:user002', 'root', '',],
        USER001_R => ['dbi:mysql:user001', 'root', '',],
        USER002_R => ['dbi:mysql:user002', 'root', '',],
    },
};
my $dr = Data::RuledCluster->new(
    config => $config,
);
my $resolved_data = $dr->resolve('USER_W', $user_id);
# or
my $resolved_data = $dr->resolve('USER001_W');
# $resolved_data: +{ node => 'USER001_W', node_info => ['dbi:mysql:user001', 'root', '',]}

DESCRIPTION

# TODO

METHOD

  • my $dr = Data::RuledCluster->new($config)

    create a new Data::RuledCluster instance.

  • $dr->config($config)

    set or get config.

  • $dr->resolve($cluster_or_node, $args)

    resolve cluster data.

  • $dr->resolve_node_keys($cluster, $keys, $args)

    Return hash resolved node and keys.

  • $dr->is_cluster($cluster_or_node)

    If $cluster_or_node is cluster, return true. But $cluster_or_node is not cluster, return false.

  • $dr->is_node($cluster_or_node)

    If $cluster_or_node is node, return true. But $cluster_or_node is not node, return false.

  • $dr->cluster_info($cluster)

    Return cluster info hash ref.

  • $dr->clusters($cluster)

    Retrieve cluster member node names as Array.

DEPENDENCIES

Class::Load

Data::Util

BUGS

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

SEE ALSO

perl

AUTHOR

Atsushi Kobayashi nekokak@gmail.com

LICENSE AND COPYRIGHT

Copyright (c) 2012, Atsushi Kobayashi. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.