Select Code to Download

package My::ClassDBI;

...
Table::User->has_many( 'pages' , 'Table::Page' => 'user_id' );

1;

Table::Tablename->columns( Primary => 'primary_key_column_name' );

Table::User->has_many( 'pages' , 'Table::Page' => 'user_id' );

# sql for testing

...
  PRIMARY KEY  (page_id)
) TYPE=MyISAM;

use My::ClassDBI;
use DBI;
...
print "\nFinished\n";

1;

=pod

...
!;

}