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};
    );
  };

t/basic.t  view on Meta::CPAN

sub stash_b {
  my ($entry) = @_;
  return sub {
    my ($monster, $input, $arg) = @_;
    my $entry = defined $entry ? $entry : $arg->{field_name};
    return $input->{b}->{ $entry };
  };
}

sub update_href {
  my ($hash_ref, $field) = @_;
  return sub {
    my ($monster, $arg) = @_;

    return if $arg->{source} eq 'hash';

    Carp::croak("cowardly refusing to overwrite existing entry")
      if exists $hash_ref->{$field};

    $hash_ref->{ $field } = $arg->{value};