view release on metacpan or  search on metacpan

lib/GRNOC/Config.pm  view on Meta::CPAN

    }

    return undef ;
}


=head2 update_node

=cut

sub update_node{
    my $self = shift;
    my $path = shift;
    my $new_value = shift;


    if($path eq ''){
	$self->{'error'}{'msg'} = "Path not specified.  Please specify a path\n";
        return undef;
    }

lib/GRNOC/Config.pm  view on Meta::CPAN

    $parent->removeChild($node);

    return _save_xml($self);

}

=head2 update_attribute

=cut

sub update_attribute{
    my $self = shift;
    my $path = shift;
    my $attribute_name = shift;
    my $attribute_value = shift;

    if($path eq ''){
        $self->{'error'}{'msg'} = "Path not specified.  Please specify a path\n";
        return undef;
    }