view release on metacpan or  search on metacpan

lib/Data/Nested/Multiele.pm  view on Meta::CPAN

sub _add_element_sethash {
   my($self,$ele,$nds) = @_;

   $$self{'raw'}{$ele}  = $nds;
}

###############################################################################
# UPDATE_ELE METHOD
###############################################################################

sub update_ele {
   my($self,$ele,$path,$val,$new,$ruleset) = @_;

   if (! $$self{'file'}) {
      $$self{'err'}    = 'nmefil06';
      $$self{'errmsg'} = 'No file set.';
      return;
   }

   # Check to make sure $ele is valid (it need only exist)

lib/Data/Nested/Multifile.pm  view on Meta::CPAN

      unshift(@args,$file);
   }

   add_ele($self,@args,$nds);
}

###############################################################################
# UPDATE_ELE METHOD
###############################################################################

sub update_ele {
   my($self,$ele,@args) = @_;
   $$self{"err"}    = "";
   $$self{"errmsg"} = "";

   if (! defined $$self{"file"}) {
      $$self{"err"}    = "nmffil08";
      $$self{"errmsg"} = "No file set.";
   }

   my $NME;