Foro - Perl en Español

Saludos.

Estoy usando Class::DBI y quiero utilizar un metodo add_constraint de la siguiente manera:

Código: Seleccionar todo

Telefono::Model::CDBI::Solicitantes->add_constraint('validaestado', estado=>\&check_estado);

sub check_estado{
    my ($valor) = @_;
    return uc($valor) eq 'ACT';
}

El problema que tengo es que, al momento de agregrar o actualizar, al pasarle al campo estado un valor distinto de act (o ACT) retorna falso (o sea check_constraint está funcionando bien) y se genera un error que no he podido capturar y la aplicación finaliza. Lo que necesito es capturar el error generado por el constraint y manejarlo dentro de mi aplicación.

Gracias.

Hola:

Si vemos la documentación del Class::DBI veremos que todas las excepciones son manejadas por medio del método _croak(), del cual puedes cambiar su funcionamiento:

Código: Seleccionar todo

  use Error;

  sub _croak {
      my ($self, $message, %info) = @_;
     
      # convert errors into exception objects
      # except for duplicate insert errors which we'll ignore
      Error->throw(-text => $message, %info)
          unless $message =~ /^Can't insert .* duplicate/;
      return;
  }


Saludos