view release on metacpan or  search on metacpan

t/103-sample-db-binder.t  view on Meta::CPAN

        if ( not exists $args->{created_on} ) {
            $args->{created_on} = $args->{updated_on} = scalar time();
        }
        return $args;
    }

    sub id       : PrimaryKey;
    sub title    : Col;
    sub body     : Col;
    sub created  : Col('created_on');
    sub updated  : Col('updated_on');
    sub status   : Col;

    sub approver : HasOne('Person');

    sub comments : HasMany('Comment', 'article');
}

{
    can_ok('Person', 'id');
    can_ok('Person', 'name');