-
hash.msn
224 225 1 1 <%args> 2 $name => undef 3 $SETS => undef 2 3 $name => undef 4 $SETS => undef 5 $object => undef 6 4 7 </%args> 5 8 6 9 <%init> 7 return undef if (! ref($SETS)); 8 return undef if (! $name); 9 10 10 my $FIELDS = {}; 11 while (my ($element,$value)=each %{$SETS}) { 12 if ($element =~ /^${name}_key_(\d+)$/ && $SETS->{"${name}_value_$1"}) { 13 $FIELDS->{$value}=$SETS->{"${name}_value_$1"}; 14 } 15 } 16 { 17 local $Data::Dumper::Indent = 0; 18 return Data::Dumper::Dumper($FIELDS); 19 } 11 return undef if (! ref($SETS)); 12 return undef if (! $name); 13 14 my $FIELDS = {}; 15 while (my ($element,$value)=each %{$SETS}) { 16 if ($element =~ /^${name}_key_(\d+)$/ && $SETS->{"${name}_value_$1"}) { 17 $FIELDS->{$value}=$SETS->{"${name}_value_$1"}; 18 } 19 } 20 return $object->_serialize($FIELDS); 21 20 22 </%init>