Select Code to Download

package admt::cdbi::adslot;
use base 'cdbi';
...

__PACKAGE__->set_up_table('block');
__PACKAGE__->has_many('adslot' => ['admt::cdbi::adslot', 'blockid']);

CREATE TABLE `adslot` (
  `id` bigint(20) unsigned NOT NULL auto_increment,
...
  `blk_app_by` varchar(32) NOT NULL default '',
  PRIMARY KEY  (`id`)
) TYPE=MyISAM;

  my $block = admt::cdbi::block->retrieve( 'id' => $q->param('blockid'
+) );
  my $slots = $block->adslot;
...
  while ( my $slotdata = $slots->next ) {
    $otext .= Dumper $slotdata, "\n";
  }

$VAR1 = bless( {
                 '_data' => [
                              {
...
                 '_class' => 'admt::cdbi::adslot'
               }, 'Class::DBI::Iterator' );

$VAR1 = bless( {
                 'id' => '1'
               }, 'admt::cdbi::block' );
...
                 'id' => '1'
               }, 'admt::cdbi::block' );
;