208 |
|
|
209 |
$parser->_parse_lookups($database,$input,$path,$source); |
$parser->_parse_lookups($database,$input,$path,$source); |
210 |
|
|
211 |
Called for each normalize source (rules) in each input by L</read_sources> |
Called for each normalize source (rules) in each input by L</_read_sources> |
212 |
|
|
213 |
It will report invalid databases and inputs in error log after parsing. |
It will report invalid databases and inputs in error log after parsing. |
214 |
|
|
296 |
|
|
297 |
$log->debug("key = $key"); |
$log->debug("key = $key"); |
298 |
|
|
299 |
my $create = ' |
my $create = "save_into_lookup('$key', $e[7] $e[8] );\n"; |
|
$coderef = ' . $e[7] . $e[8] . '; |
|
|
foreach my $v ($coderef->()) { |
|
|
next unless (defined($v) && $v ne \'\'); |
|
|
push @{ $lookup->{\'' . $key . '\'}->{$v} }, $mfn; |
|
|
} |
|
|
'; |
|
300 |
|
|
301 |
$log->debug("create: $create"); |
$log->debug("create: $create"); |
302 |
|
|