238 |
|
|
239 |
my @sources; |
my @sources; |
240 |
|
|
241 |
|
my $lookup_src_cache; |
242 |
|
|
243 |
$self->{config}->iterate_inputs( sub { |
$self->{config}->iterate_inputs( sub { |
244 |
my ($input, $database) = @_; |
my ($input, $database) = @_; |
245 |
|
|
262 |
$self->{valid_inputs}->{$database}->{$input_name}++; |
$self->{valid_inputs}->{$database}->{$input_name}++; |
263 |
|
|
264 |
push @sources, sub { |
push @sources, sub { |
265 |
|
warn "### $database $input_name, $full ###\n"; |
266 |
$self->_parse_source( $database, $input_name, $full, $s ); |
$self->_parse_source( $database, $input_name, $full, $s ); |
267 |
}; |
}; |
268 |
|
|