Select Code to Download

#!/usr/bin/perl
use Class::DBI;
...
use base ('MyPackage');
MyPackage::role->table('role');
MyPackage::role->columns(Essential => qw(id role_title));

#!/usr/bin/perl
use MyPackage;
...
print "user with id 1 is $testuser \";
print "\n";
print "user with id 1 has role $testuser->role_id(1)";

#!/usr/bin/perl
use Class::DBI;
...
use base ('MyPackage');
MyPackage::role->table('role');
MyPackage::role->columns(Essential => qw(id role_title));

#!/usr/bin/perl
use MyPackageO2M;
...
@roles=$testuser->ihavesomuchroles;
foreach my $temp (@roles)
{ print "role: $temp->id."and".$temp->role_title."\n";}