Pequeña guía de referencia para refrescar el uso de esta herramienta.

Definición de datos

La definición de datos ser hace en dos partes: se crean paquetes Perl para cada tabla (‘resultset’)
y un paquete que los engloba en un esquema base (‘schema’).

Definir un tabla (resultsource)

Documentación de referencia en
DBIx::Class::ResultSource.

package Mi::Esquema::MiTabla;
use base qw(DBIx::Class);
 
__PACKAGE__->load_components( qw( Core ) );
 
__PACKAGE__->table('tabla');
__PACKAGE__->add_columns( qw( codigo descripcion ) );
__PACKAGE__->primary_key( q(codigo) );

Crear un esquema de base de datos (schema)

Documentación de referencia en
DBIx::Class::Schema.

package Mi::Esquema;
use base qw(DBIx::Class::Schema);
 
# Cargará todas las definiciones de tablas ('resultset') 
# bajo Mi::Esquema::*
__PACKAGE__->load_components( );
 
1;

Acceso a los datos

El acceso a los datos consiste en leer (buscar y recuperar registros), y
«añadir», «actualizar» y «eliminar» registros, previa conexión con la
fuente de datos.

Conectar con la fuente de datos

Documentación de referencia en Connecting.

use Mi::Esquema;
 
my $esquema = Mi::Esquema->connect('dbi...');

Buscar y/ó leer datos

Documentación de referencia en
DBIx::Class::ResultSet.

# Primero obtenemos un objeto de tipo 'resultset'
# que viene a ser similar a 'prepare' ...  
my $result_set = $esquema->resulset('Tabla');
 
# y luego, sobre ese 'resultset' llamamos a métodos concretos, 
# bien buscando por la clave primaria como en 'find' y obteniendo una
# instancia del objeto 'Mi::Esquema::Tabla' 
my $record = $result_set->find( '00010' );
 
# ó empleando expresiones más complejas para conseguir una 
# instancia de 'DBIx::Class::ResultSet' como con 'search'
my $result_set = $result_set->search();