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 |
|
|
|
my $create = "save_into_lookup('$key', $e[7] $e[8] );\n"; |
|
|
|
|
|
$log->debug("create: $create"); |
|
|
|
|
299 |
return $self->_lookup_error("invalid database $e[3] in $path" ) unless $self->valid_database( $e[3] ); |
return $self->_lookup_error("invalid database $e[3] in $path" ) unless $self->valid_database( $e[3] ); |
300 |
return $self->_lookup_error("invalid input $e[5] of database $e[3] in $path", ) unless $self->valid_database_input( $e[3], $e[5] ); |
return $self->_lookup_error("invalid input $e[5] of database $e[3] in $path", ) unless $self->valid_database_input( $e[3], $e[5] ); |
301 |
|
|
302 |
|
my $create = qq{ |
303 |
|
save_into_lookup($e[3],$e[5],'$key', $e[7] $e[8] ); |
304 |
|
}; |
305 |
|
|
306 |
|
$log->debug("create: $create"); |
307 |
|
|
308 |
# save code to create this lookup |
# save code to create this lookup |
309 |
$self->{_lookup_create}->{ _q($e[3]) }->{ _q($e[5]) } .= $create; |
$self->{_lookup_create}->{ _q($e[3]) }->{ _q($e[5]) } .= $create; |
310 |
$self->{_lookup_create_key}->{ _q($e[3]) }->{ _q($e[5]) }->{ _q($key) }++; |
$self->{_lookup_create_key}->{ _q($e[3]) }->{ _q($e[5]) }->{ _q($key) }++; |