$ perl -MDBIx::DBSchema -e 'print DBIx::DBSchema->new_native("dbi:mysql:ahp")->pretty_print' | head -n 20
'patient' => {
  'columns' => [
  ],
  'primary_key' => 'id',
  'unique' => [ [ 'patient_key', 'div_id' ] ],
  'index' => [  ],
},

'gp' => {
  'columns' => [
    'id', 'int', '', '11', '', 'auto_increment',
    'div_id', 'int', '', '11', '0', '',
    'name', 'text', '', '', '', '',
    'display', 'tinyint', 'NULL', '1', '0', '',
  ],
  'primary_key' => 'id',
  'unique' => [  ],
  'index' => [  ],
},