added back-compat for the "epoch => 1", etc syntax

[dbsrgits/DBIx-Class-DateTime-Epoch.git] / t / lib / MySchema / FooCompat.pm

package MySchema::FooCompat;

use strict;
use warnings;

use base qw( DBIx::Class );

__PACKAGE__->load_components( qw( DateTime::Epoch Core ) );
__PACKAGE__->table( 'foo_compat' );
__PACKAGE__->add_columns(
    id => {
        data_type         => 'bigint',
        is_auto_increment => 1,
        is_nullable       => 0,
    },
    name => {
        data_type   => 'varchar',
        size        => 10,
        is_nullable => 1,
    },
    bar => { # epoch stored as an int
        data_type => 'bigint',
        epoch     => 1,
    },
    baz => { # epoch stored as a string
        data_type => 'varchar',
        size      => 50,
        epoch     => 1,
    },
    # working in conjunction with DBIx::Class::TimeStamp
    creation_time => {
        data_type => 'bigint',
        epoch     => 'ctime',
    },
    modification_time => {
        data_type => 'bigint',
        epoch     => 'mtime',
    }
);

__PACKAGE__->set_primary_key( 'id' );

1;