view release on metacpan or  search on metacpan

eg/eg.pl  view on Meta::CPAN

}

sub hive_path {
  my ($hive_path) = @_;
  return sub {
    my ($monster, $input, $field) = @_;
    return $input->account->info( join q{.}, @$hive_path );
  };
}

sub update_hive {
  my ($hive_path) = @_;
  return sub {
    my ($monster, $arg) = @_;

    return if $arg->{source} eq 'hive';
    return $input->account->info(
      (join q{.}, @$hive_path),
      $arg->{value};
    );
  };