Opóngase el Mediador:: es un marco de persistencia de objeto genérico.

SINOPSIS

paquete Persistente;

use la base qw (Objeto:: Mediador);

__ PAQUETE __-> mk_attr (qw (foo barra));

suscripción _set_id {
mi $self = cambio;

mi $id = generate_identity ();

$self-> identidad ($id);
}

suscripción _insert {
mi $self = cambio;

$db_handle-> encarte ($self-> identificación, $self-> foo, $self-> barra);
}

suscripción _update {
mi $self = cambio;

$db_handle-> actualización ($self);
}

suscripción _delete {
mi $self = cambio;

El $db_handle-> borra ($self-> identificación);
}

suscripción _select {
mi $self = cambio;

mi ($foo, $bar) = $db_handle-> escogido ($self-> identificación);

$self-> foo ($foo);
$self-> barra ($bar);
}

Opóngase el Mediador:: intenta ser simple y justamente minimalistic marco de trazando un mapa de objeto. Los objetivos principales del desarrollo eran: simplicidad de uso, transparencia de usuario final, independencia de base de datos y minimización de interacción de base de datos con una especie de sistema de control estatal de objeto en la memoria.