Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my $op4 = MyCDBI::OrgPart->create({ typeid => 4, typeid => $pt2 });

$org->delete;

CREATE TABLE org (
  orgid tinyint(3) unsigned NOT NULL auto_increment,
  PRIMARY KEY  (orgid)
...
  orgid tinyint(3) unsigned default '0',
  PRIMARY KEY  (typeid)
) TYPE=MyISAM;