Establecer una Clase Base

Es conveniente establecer una clase base de la cual hereden las clases asociadas con las diferentes tablas. La introducción de esta clase proporciona un lugar conveniente para las sobreescrituras y extensiones que queramos hacer a Class::DBI.

$ cat -n synopsis1.pl
 1  package Music::DBI;
 2  use strict;
 3
 4  use base 'Class::DBI';
 5  Music::DBI->connection("dbi:SQLite:example.db");

Lo primero es conocer como acceder a la base de datos. Esto se hace por medio del método connection . Esto hace que todas las clases/tabla que heredan de la clase base compartan la misma conexión.