lib/CXGN/DB/Map.pm

   1 use strict;
   2
   3 use Class::DBI;
   4 use CXGN::DB::Connection;
   5
   6
   7
   8 package CXGN::DB::Map_low_level::DBI;
   9
  10 use base "CXGN::CDBI::Class::DBI";
  11
  12
  13 package CXGN::DB::Map_low_level::Linkage_group;
  14
  15 use base qw ( CXGN::DB::Map_low_level::DBI );
  16
  17 CXGN::DB::Map_low_level::Linkage_group->table("sgn.linkage_group");
  18 CXGN::DB::Map_low_level::Linkage_group->columns(All=>qw(lg_id lg_name map_version_id lg_order));
  19 CXGN::DB::Map_low_level::Linkage_group->columns(primary_key => 'lg_id');
  20 CXGN::DB::Map_low_level::Linkage_group->has_a(map_version_id => "CXGN::DB::Map_low_level::Map_version");
  21
  22
  23
  24 package CXGN::DB::Map_low_level::Map_version;
  25
  26 use base qw ( CXGN::DB::Map_low_level::DBI );
  27
  28 CXGN::DB::Map_low_level::Map_version->table("sgn.map_version");
  29 CXGN::DB::Map_low_level::Map_version->columns(All=>qw(map_version_id map_id date_loaded current_version default_threshold));
  30 CXGN::DB::Map_low_level::Map_version->columns(primary_key => 'map_version_id');
  31 CXGN::DB::Map_low_level::Map_version->has_a(map_id => "CXGN::DB::Map_low_level::Map");
  32 CXGN::DB::Map_low_level::Map_version->has_many(linkage_groups => "CXGN::DB::Map_low_level::Linkage_group");
  33
  34
  35
  36 package CXGN::DB::Map_low_level::Map;
  37
  38 use base "CXGN::DB::Map_low_level::DBI";
  39
  40 CXGN::DB::Map_low_level::Map->table('sgn.map');
  41 CXGN::DB::Map_low_level::Map->columns(All => qw/map_id short_name long_name abstract map_type parent1 parent2/ );
  42 CXGN::DB::Map_low_level::Map->columns(primary_key => 'map_id');
  43 CXGN::DB::Map_low_level::Map->has_many(map_versions => "CXGN::DB::Map_low_level::Map_version");
  44
  45
  46
  47 package CXGN::DB::Map;
  48
  49 use base "CXGN::DB::Map_low_level::Map";
  50
  51
  52
  53 package CXGN::DB::Linkage_group;
  54
  55 use base "CXGN::DB::Map_low_level::Linkage_group";
  56
  57