Yet Another CPAN Grep

switchman ( K/KO/KOMAROV/switchman-1.16.tar.gz, KOMAROV, 2016; MetaCPAN )

switchman/lib/App/Switchman.pm ( view source; MetaCPAN )

ct;
use warnings;

use File::Basename qw(basename);
use Getopt::Long qw(GetOptionsFromArray);
use JSON;
use Linux::MemInfo;
use List::MoreUtils qw(part uniq);
use List::Util qw(max);
use Log::Dispatch

 prefix znode
Sets prefix_data_watch

=cut

sub load_prefix_data
{
    my $self = shift;

    my $json_data = $self->zkh->get($self->prefix, watch => $self->prefix_data_watch);
    if ($self->zkh->get

".$self->zkh->str_error);
    }

    my (%data, $prefix_data);
    if ($json_data) {
        $prefix_data = eval {from_json($json_data)};
        if (!$prefix_data || $@) {
            $self->_error("