Select Code to Download

CREATE TABLE `user` (
  `user_id` int(11) NOT NULL auto_increment,
...
(3, 1), 
(3, 2), 
(0, 0);

package Test::DBI;
use base 'Class::DBI';
...
__PACKAGE__->columns(All => qw(role_id rolename));

1;

#!/usr/local/bin/perl;

...
#    print "role: " . $_->id . " and " . $_->rolename . "\n";
#}
exit;

user with id 1 is: John
and has roles:
 is not a column of TestDBI::userrole at test.pl line 12
[root@posiedon3 www]#