CREATE TABLE IF NOT EXISTS `users` (
  `id` smallint(6) NOT NULL auto_increment,
  `name` varchar(32) NOT NULL,
  `password` varchar(40) NOT NULL,
  `password_forcechange` enum('Y','N') NOT NULL,
  `last_ip` varchar(15) default NULL,
  `last_login` timestamp NULL default NULL,
  PRIMARY KEY  (`id`),
  UNIQUE KEY `name` (`name`)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=2 ;


CREATE TABLE IF NOT EXISTS `users_contact` (
  `user_id` smallint(6) NOT NULL,
  `email` varchar(128) default NULL,
  `homepage` varchar(256) default NULL,
  `phone` text,
  `messenger` text,
  PRIMARY KEY  (`user_id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;


ALTER TABLE `users_contact`
  ADD CONSTRAINT `users_contact_ibfk_1` FOREIGN KEY (`user_id`) REFERENCES `users` (`id`) ON DELETE CASCADE;

package User;

use strict;

use base qw(DB::Object);

__PACKAGE__->meta->setup
(
    table   => 'users',

    columns => 
    [
        id                   => { type => 'integer', not_null => 1 },
        name                 => { type => 'varchar', length => 32, not_null => 1 },
        password             => { type => 'varchar', length => 40, not_null => 1 },
        password_forcechange => { type => 'enum', check_in => [ 'Y', 'N' ], not_null => 1 },
        last_ip              => { type => 'varchar', length => 15 },
        last_login           => { type => 'timestamp' },
    ],

    primary_key_columns => [ 'id' ],

    unique_key => [ 'name' ],    
    
    foreign_keys    =>
    [
    ],
    
    relationships   =>
    [                
        contact     =>
        {          
          type          => 'one to one',
          class         => 'User::Contact',
          column_map    => { id => 'user_id' },
          
        },

    ]

);


1;


package User::Contact;

use strict;

use base qw(DB::Object);

__PACKAGE__->meta->setup
(
    table   => 'users_contact',

    columns => 
    [
        user_id   => { type => 'integer', not_null => 1 },
        email     => { type => 'varchar', length => 128 },
        homepage  => { type => 'varchar', length => 256 },
        phone     => { type => 'text', length => 65535 },
        messenger => { type => 'text', length => 65535 },
    ],

    primary_key_columns => [ 'user_id' ],   
    
    relationships   =>
    [
        user        =>
        {          
          type          => 'one to one',
          class         => 'User',
          column_map    => { 'user_id' => 'id' },
          
        },
    ],
    
);

1;

 User->new(id=>1)->load->contact->email;

Can't locate object method "meta" via package "User::Contact" at /usr/share/perl5/Rose/DB/Object/MakeMethods/Generic.pm line 19