Dbix :: clase :: servicio Procesos AGREGATE DBIC entre múltiples tablas.
Descargar ahora

Dbix :: clase :: servicio Clasificación y resumen

Dbix :: clase :: servicio Etiquetas

Módulo perl perla agregador Agregado DBIC DBIC

Dbix :: clase :: servicio Descripción

Procesos de DBIC agregados entre varias tablas. Dbix :: Class :: Service es un módulo PERL para agregar procesos DBIC entre múltiples tablas. Ejemplo de clase de servicioSynopsiseach Ejemplo: paquete MySchema :: Servicio :: Usuario; usar estricto; usar advertencias; Use Base QW (DBIX :: Class :: Service); Sub ADD_USER: Transacción {My ($ Class, $ Schema, $ Args) = @_; MY $ USER_RS = $ SCHEMA-> ResultSet ('Usuario'); My $ User = $ user_rs-> Crear ({user_seq => undef, user_id => $ args -> {user_id}, contraseña_digest => cript ($ args -> {contraseña}, $ args -> {user_id}),} ) $ user-> create_related ('profiles', {nombre => $ args -> {nombre}, apodo => $ args -> {apodo},}); devuelva $ usuario; } Sub autenticate: DataSource {My ($ Class, $ Schema, $ user_id, $ contraseña) = @_; Devolver $ Schema-> ResustSet ('Usuario') -> Buscar ({user_id => $ user_id, contraseña_digest => cript ($ contraseña, $ user_id)}); } 1; y su clase de esquema: paquete myschema :: esquema; usar estricto; usar advertencias; Use la base 'dbix :: clase :: esquema'; __Paquete __-> Load_classes; __Paquetar __-> Load_components (QW / servicemanager /); __Paquetar __-> Load_Services ({'MySchema :: Service' => }); 1; usando: use myschema :: esquema; My $ Schema = MySchema :: Schema-> Connect ($ DSN, $ DBUSER, $ DBPASS); ### Nota: Por favor vea los argumentos. No necesita $ Schema $ Schema-> Servicio ('Usuario') -> Add_User ($ args); Requisitos: · Perl

Dbix :: clase :: servicio Software relacionado