Dbix :: datamodel DBIX :: DataModel es un módulo Perl con clases y asociaciones de estilo UML en la parte superior de DBI.
Descargar ahora

Dbix :: datamodel Clasificación y resumen

Dbix :: datamodel Etiquetas

Módulo perl Asociaciones estilo UML Clases de estilo UML Estilo uml Asociaciones

Dbix :: datamodel Descripción

DBIX :: Datamodel es un módulo Perl con clases y asociaciones de estilo UML en la parte superior de DBI. DBIX :: Datamodel es un módulo Perl con clases y asociaciones de estilo UML en la parte superior del archivo DBI.SYNOPSISIN "MYSCHEMA.PM" Declarar el esquema Use DBIX :: Datamodel; Dbix :: datamodel-> esquema ('myschema'); # MySchema ahora es un PERL PAQUARDECLARE las tablas con (nombre de Perl, nombre DB, columna (s) de clave principal). Cada tabla se convierte en un paquete Perl. MySchema-> Tabla (QW / Empleado Empleado Emp_id /); MySchema-> Tabla (PWW / Departamento Departamento DPT_ID /); MYSCHEMA-> TABLA (QW / ACTIVIDAD ACTIVIDAD ACT_ID /); Declare las asociaciones en estilo UML (, ). MySchema-> Asociación (, ); MySchema-> Asociación (, ); Declara una asociación N-TO-N, en la parte superior de la Tabla de enlace MySchema-> Asociación (); ); declare "tipos de columnas" con algunos manipuladores .. # Fecha de conversión entre la base de datos (YYYY-MM-DD) y el usuario (DD.MM.YYYYY) MYSchema-> ColumnyPE (Fecha = > FROMDB => SUB {$ _ _ = S / (DDDD) - (DD) - (DD) / $ 3. $ 2. $ 1 /}, TODB => SUB {$ _ = ~ S / ( DD). (DD). (DDDD) / $ 3- $ 2- $ 1 /}, validate => sub {$ _ _ = ~ m / (dd). (DD). (DDDD) /}); # 'porcentaje' de conversión entre la base de datos (0,8) y el usuario (80) MySchema-> columnyPE (porcentaje => FROMDB => SUB {$ _ * = 100 si $ _ }, TODB => SUB {$ _ / = 100 Si $ _ }, valide => sub {$ _ _ = ~ / 1? D? D /}); .. y aplique estos "tipos de columnas" a algunos de nuestros Empleado de columnas-> ColumnyPE (Fecha => QW / D_Birth /); Actividad-> columnytype (fecha => qw / d_begin d_end /); Actividad-> columnypype (porcentaje => qw / actividad_rate /); declare una columna que se llenará automáticamente en cada actualización myschema-> autoupdatecolumns (last_modif => sub {$ env {remote_user} "," .scalar (localtime)} ; Para los detalles que no se pudieron expresar de manera declarativa, solo agregue un nuevo método a la clase de tabla (pero en ese caso, los esquemas y las declaraciones de tabla deben estar en un bloque de inicio, de modo que la clase de tabla se define antes de comenzar añadiendo métodos a ello). actividad del paquete; Sub activoPeriod {My $ Self = Shift; $ yo-> {d_end}? "Desde $ Self -> {d_begin} a $ yo-> {d_end}": "Desde $ yo-> {d_begin}"; } Declare cómo expandir automáticamente los objetos en la actividad de los árboles de datos-> AUTOEXPAND (QW / Departamento de empleados /); Requisitos: · Perl

Dbix :: datamodel Software relacionado