view release on metacpan or  search on metacpan

lib/MColPro/Collect.pm  view on Meta::CPAN

{
    my ( $self, $now ) = @_;

    if( ! defined $self->{range} || $self->{range}{due} < $now )
    {
        my $c = 2;
        while ( $c-- )
        {
            my $range = eval
            {
                DynGig::Range::Cluster->setenv (   
                    server => $self->{config}{range}{server}
                        || 'localhost:65431',
                    timeout => $self->{config}{range}{timeout} || 30,
                ); 
            };
            if ( !$@ && $range )
            {
                $self->{range}{range} = $range;
                last;
            }