schema設定のほう

my-schema.pm

package My::Schema;
use strict;
use warnings;

use Teng::Schema::Declare;
Teng::Schema::Declare->load_plugin('Column::DateTime');

table {
    name "tags";
    pk "id";
    columns qw( name created_at updated_at );
    datetime_columns qw(created_at updated_at);
    # 下と同様の効果があったらいいな
    # inflate qr{^(?:created_at|updated_at)$} => \&inflate_datetime;
    # deflate qr{^(?:created_at|updated_at)$} => \&deflate_datetime;
};

# sub inflate_datetime {
#     my ($col_value) = @_;
#     return DateTime::Format::MySQL->parse_datetime($col_value);
# }

# sub deflate_datetime {
#     my ($col_value) = @_;
#     return DateTime::Format::MySQL->format_datetime($col_value);
# }

1;

teng-schema-declare-plugin-column-datetime.pm

package Teng::Schema::Declare::Plugin::Column::DateTime;
use strict;
use warnings;

use base qw(Teng::Schema::Declare::Plugin);

sub register {
    my ($self, $option) = @_;

    $self->register_declare_method(datetime_columns => sub {
        my (@columns) = @_;
        my $columns_regexp = join('|', @columns);
        my $regexp = qr{^(?:$columns_regexp)$};

        inflate $regexp => \&inflate_datetime;
        deflate $regexp => \&deflate_datetime;
    });
}

sub inflate_datetime {
    my ($col_value) = @_;
    return DateTime::Format::MySQL->parse_datetime($col_value);
}

sub deflate_datetime {
    my ($col_value) = @_;
    return DateTime::Format::MySQL->format_datetime($col_value);
}

1;