view release on metacpan or  search on metacpan

lib/DynGig/CLI/Cluster/Client.pm  view on Meta::CPAN

    $select->add( *STDIN );

    map { $length = DynGig::Util::Sysrw->read( $_, $buffer ) }
        $select->can_read( 0.1 );

    push @ARGV, split /\s+/, $buffer if $length;

    Pod::Usage::pod2usage( %pod_param ) unless @ARGV;

    my $range = DynGig::Range::Cluster
        ->setenv( map { $_ => $option{$_} } qw( timeout server ) )
        ->new( \@ARGV );

    if ( $option{e} )
    {
        local $, = $option{delimiter};
        local $\ = "\n";

        print $range->list();
    }
    else