sub delete {
my $self = shift;
my $dbh = shift;
my $statement = "DELETE FROM typework WHERE id = ? ";
my $sth = $dbh->prepare($statement);
my $rv = $sth->execute( $self->id ) || $self->result_sql("false");
return $self->json;
}
DBD::Pg::st execute failed: ERROR: invalid input syntax for integer: «5;select+version()::int--»
at /xxxx/Typework.pm line 150.
Данный код не подвержен SQL-injection? При любом вводе хочет integer.
Со строками так же не будет проблем в других SQL-запросах?
