#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use DateTime;
use Rose::DB;

Rose::DB->register_db(domain   => 'default',
                      type     => 'default',
                      driver   => 'mysql',
                      database => 'test',
                      username => 'uwe',
                      password => 'uwe',
                     );

package DATUM;

use strict;
use base 'Rose::DB::Object';

my $meta = DATUM->meta;

$meta->table('DATUM');

$meta->columns(ID     => {type => 'integer', primary_key => 1},
               DATUM  => {type => 'datetime'},
               DATUM2 => {type => 'date'},
              );

use Rose::DB::Object::MakeMethods::Date
    (datetime => [datum  => {hash_key => 'DATUM'},
                 ],
     date     => [datum2 => {hash_key => 'DATUM2'},
                 ],
    );

$meta->initialize;


1;

package main;

my $dbh = Rose::DB->new->retain_dbh;

eval {
    $dbh->do('CREATE TABLE `DATUM` (
                `ID` int(10) unsigned NOT NULL auto_increment,
                `DATUM` datetime NOT NULL,
                `DATUM2` date NOT NULL,
                PRIMARY KEY  (`ID`)
              )');
};

my $test = DATUM->new(DATUM => DateTime->now);
$test->save;