MFPM:

お気に入り一覧 (mymodule)

File::Storage::Stat(File-Storage-Stat)[Yappo]

Tags: mymodule

登録:2005-09-13 17:54:17

CPAN | PerlDoc | code search

File::CounterSS(File-CounterSS)[Yappo]

Tags: mymodule

登録:2005-09-13 17:52:21

CPAN | PerlDoc | code search

DateTime::Format::Pg(DateTime-Format-Pg)[daisuke]

Class::DBIを使うときはこれとClass::DBI::LazyInflateでDateTimeばりばり使ってます。(0.09でinfinite/-infinite対応したっす）

package My::CDBI;
use strict;
use base qw(Class::DBI);
use Class::DBI::LazyInflate;
use DateTime;
use DateTime::Format::Pg;

sub pg_inflate_datetime { DateTime::Format::Pg->parse_datetime(shift)  }
sub pg_deflate_datetime { DateTime::Format::Pg->format_datetime(shift)  }
sub pg_inflate_duration { DateTime::Format::Pg->parse_duration(shift)  }
sub pg_deflate_duration { DateTime::Format::Pg->format_duration(shift)  }

sub has_datetime
{
  my $class = shift;
  my $field = shift;

  $class->has_lazy(
    $field  => 'DateTime',
    inflate => \&pg_inflate_datetime,
    deflate => \&pg_deflate_datetime,
  );
}

sub has_interval
{
  my $class = shift;
  my $field = shift;

  $class->has_lazy(
    $field => 'DateTime::Duration',
    inflate => \&pg_inflate_duration,
    deflate => \&pg_delfate_duration
  );
}