Select Code to Download

package MyClass::DBI::SubClass;
use base MyClass::DBI;
...
  my $id = $sth->fetch();
  return $id;
};

package MyClass::Items;
use 5.008008;
...

1;
__END__

my $parent = MyClass::DBI::SubClass->insert( {name=>"dad", qty=>1} );
my $child = MyClass::DBI::SubClass->insert(
...
        qty => 1,
        parent => $parent->id
   });