| Dbix :: oo DBIX :: OO es una base de datos para perl objetos abstracción. |
Descargar ahora |
Dbix :: oo Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Mihai Bazon
- Sitio web del editor:
- http://search.cpan.org/~mishoo/DBIx-OO-v0.0.4/lib/DBIx/OO.pm
Dbix :: oo Etiquetas
Dbix :: oo Descripción
DBIX :: OO es una base de datos para perl objetos abstracción. Dbix :: OO es una base de datos para perl objetos abstraction.synopsis paquete MYDB; Use la base 'DBIX :: OO'; # Necesitamos sobrescribir a get_dbh ya que es una función abstracta. # La forma en que se conecta con el DB es realmente su trabajo; Esta función # debe devolver la manija de la base de datos. Los croaks predeterminados get_dbh (). My $ DBH; sub get_dbh {$ dbh = dbi-> connect_cached ('dbi: mysql: prueba', 'usuario', 'passwd') Si está definido $ DBH; Devuelve $ DBH; } Paquete MyDB :: Usuarios; Use la base 'MyDB'; __Paquetar __-> Tabla ('Usuarios'); __Paquetar __-> Columnas (P => , E => ); __Paquete __-> has_many (Páginas => 'MyDB :: Pages', 'Usuario'); paquete mydb :: páginas; Use la base 'MyDB'; __Paquete __-> Tabla ('Páginas'); __Paquetar __-> Columnas (P => , E => ); __Package __-> has_a (usuario => 'mydb :: usuarios'); Paquete principal; MY $ U = MYDB :: Usuarios-> Crear ({id => 'userid', first_name => 'q', last_name => 'w'}); MY $ FOO = MYDB :: Usuarios-> Recuperar ('UserID'); mi @p = @ {$ foo-> fk_pages}; Imprimir "Usuario:", $ foo-> first_name, "", $ foo-> Last_name, "Páginas: N"; foreach (@p) {imprimir $ _-> título, "n"; } $ foo-> first_name ('john'); $ foo-> Last_name ('Doe'); # o $ foo-> set (FIRST_NAME => 'John', Last_Name => 'Doe'); $ foo-> actualización; Requisitos: · Perl
Dbix :: oo Software relacionado