File Coverage

blib/lib/DBIx/Class/InflateColumn/TimePiece.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition	8	8	100.0
subroutine	8	8	100.0
pod	0	1	0.0
total	41	42	97.6

package DBIx::Class::InflateColumn::TimePiece;

# ABSTRACT: Auto-create Time::Piece objects from integer (number of seconds since epoch) columns

use v5.10;

use strict;
use warnings;

our $VERSION = '0.03'; # VERSION

use parent 'DBIx::Class';

use Time::Piece;

sub register_column {
    my ($self, $column, $info, @rest) = @_;

    $self->next::method( $column, $info, @rest );

    my $data_type  = $info->{data_type}      || '';
    my $is_integer = $data_type eq 'integer' || $data_type eq 'int';

    return if !$info->{inflate_time_piece} || !$is_integer;

    $self->inflate_column(
        $column => {
            inflate => sub {
                my $dt = localtime shift;
                return $dt;
            },
            deflate => sub {
                return shift->epoch;
            },
        }
    );
}

1;

__END__