93 |
# Find all the named subroutines |
# Find all the named subroutines |
94 |
|
|
95 |
my $eval_create; |
my $eval_create; |
96 |
|
my @errors; |
97 |
|
|
98 |
|
sub error { |
99 |
|
my $msg = shift || $log->logconfess("error without message?"); |
100 |
|
push @errors, $msg; |
101 |
|
return ''; |
102 |
|
} |
103 |
|
|
104 |
$Document->find( sub { |
$Document->find( sub { |
105 |
my ($Document,$Element) = @_; |
my ($Document,$Element) = @_; |
161 |
|
|
162 |
$log->debug("create: $create"); |
$log->debug("create: $create"); |
163 |
|
|
164 |
$log->logdie("invalid database $e[3]" ) unless $self->valid_database( $e[3] ); |
return error("invalid database $e[3]" ) unless $self->valid_database( $e[3] ); |
165 |
$log->logdie("invalid input $e[5] of database $e[3]", ) unless $self->valid_database_input( $e[3], $e[5] ); |
return error("invalid input $e[5] of database $e[3]", ) unless $self->valid_database_input( $e[3], $e[5] ); |
166 |
|
|
167 |
$eval_create->{ $e[3] }->{ $e[5] } .= $create; |
$eval_create->{ $e[3] }->{ $e[5] } .= $create; |
168 |
|
|
188 |
$Dumper->print; |
$Dumper->print; |
189 |
} |
} |
190 |
|
|
191 |
|
$log->error("Parser errors: ", join("\n",@errors) ) if (@errors); |
192 |
|
|
193 |
return 1; |
return 1; |
194 |
} |
} |
195 |
|
|