view release on metacpan or  search on metacpan

lib/Config/Model/Instance.pm  view on Meta::CPAN

    }

    $logger->trace( "write_back on node '$path' done" );
    return;
}

sub save {
    goto &write_back;
}

sub update {
    my ($self, %args) = @_;

    my $hook = sub {
        my ($scanner, $data_ref,$node,@element_list) = @_;
        if ($node->can('update')) {
            my $loc = $node->location;
            say "Calling update on node '$loc'" if $loc and not $args{quiet};
            push (@$data_ref, $node->update(%args))
        } ;
    };

lib/Config/Model/Value.pm  view on Meta::CPAN

    $self->{help} = delete $args->{help};
    return;
}

sub set_update ($self, $args) {
    return unless defined $args->{update};
    $self->{update} = delete $args->{update};
    return;
}

sub update_from_file ($self) {
    return unless defined $self->update;

    my $v = $self->get_update_value;
    if (defined $v) {
        $user_logger->info("Updating ". $self->location. " value from file");
        $self->store($v);
        # tell caller that something was done. User logger provides the details
        return '';
    }
    return;