view release on metacpan or  search on metacpan

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

1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
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

945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
      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;