64 sub _moredata_hash { 65 my ($datastring, $datasep, $hashsep) = @_; 68 my %hash; 69 my @list = split /\s*\Q$datasep\E\s*/, $datastring; 70 foreach my $item (@list) { 71 my $count = my @array = split(/\s*\Q$hashsep\E\s*/, $item); 72 die "Count of $count is not a pair of values in hash assignment of values @array : $!" if ($count != (2 || 0)); 73 $hash{$array[0]} = $array[1]; 74 } 75 scalar %hash ? \%hash : undef; 76 }