For auto-initialization I'm trying to teach RDBO that MySQL's smallint
is an integer, but w/o success.

What I did so far:

package My::DB::Object::Metadata;

use strict;

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

__PACKAGE__->column_type_class(smallint => 
'Rose::DB::Object::Metadata::Column::Integer');


package My::DB::Object;

use strict;

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

use My::DB;
use My::DB::Object::Metadata;

sub init_db { My::DB->new }

sub meta_class { 'My::DB::Object::Metadata' }


package My::Thing;

use base 'My::DB::Object';

__PACKAGE__->meta->auto_initialize;

print __PACKAGE__->meta->perl_class_definition;


products.sql:
CREATE TABLE `things` (
  `id` int(10) unsigned NOT NULL auto_increment,
  `status` smallint(5) unsigned default '0',
  PRIMARY KEY (`id`)
) ENGINE=InnoDB

Still smallint is considered a scalar.

What am I missing?
-- 
Bernhard Graf


-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://ads.osdn.com/?ad_id=7637&alloc_id=16865&op=click
_______________________________________________
Rose-db-object mailing list
Rose-db-object@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rose-db-object

Reply via email to