Comments on: Publication de Coat::Persistent 0.200

By: sukria

sukria — Fri, 19 Jun 2009 14:43:39 +0000

oz: Ah tu voulais une instance d'un objet Date, j'avais lu trop vite, dans ce cas, on aurait quelquechose comme ça :


use Coat::Types;

coerce 'Date'
  => from 'Int'
  => via { Date->new($_)}; # si le constructeur de Date peut prenre le timestamp

coerce 'Int'
  => from 'Date'
  => via { $_->get_timestamp() } # si un objet Date propose get_timestamp()

has_p mon_champ_ts => (
  isa => 'Date',
  store_as 'Int',
);

Comme tu peux le constater, on peut faire ce qu'on veut, tant qu'on défini bien une coercition dans chaque sens.

By: sukria

sukria — Fri, 19 Jun 2009 14:38:25 +0000

oz: Eh bien exactement la même, mais à l'envers ;-)

package MyStuff;
...

has_p mon_champ_ts => (
  isa => 'MySQL:DateTime',
  store_as => 'Int',
);

Bon pour que ça soit plus propre, il faudrait définir le type Timestamp, qui serait un Int particulier, et là, ça serait idéal. Mais déjà, le code ci-dessus fait ce que tu veux.

By: oz

oz — Fri, 19 Jun 2009 14:10:13 +0000

J’ai pas trop regardé en détail, mais comment tu utiliserais cette feature sur des tables dont certains champs date/time seraient stockés avec des bons vieux timestamps Unix? C’est-à-dire: côté Perl, je récupère une instance de Date (ou autre), et côté DB un timestamp.