lib/CXGN/Chado/Main.pm

   1
   2 =head1 NAME
   3
   4 CXGN::Chado::Main
   5 package for the main methods used by Chado objects (CV, Db.. )
   6
   7 =head1 SYNOPSIS
   8
   9 =head1 AUTHOR
  10
  11 Naama Menda (nm249@cornell.edu)
  12
  13 =cut
  14
  15 package CXGN::Chado::Main;
  16
  17 use base qw / CXGN::DB::Object / ;
  18
  19 =head2 new
  20
  21  Usage: CXGN::Chado::Main->new($dbh)
  22  Desc:  a new Chado::Main class
  23  Ret:   $self
  24  Args: database handle
  25  Side Effects: sets dbh
  26  Example:
  27
  28 =cut
  29
  30 sub new {
  31     my $class=shift;
  32     my $dbh= shift;
  33
  34     my $args = {};
  35     my $self = $class->SUPER::new($dbh); #bless $args, $class;
  36
  37    $self->set_dbh($dbh);
  38
  39     return $self;
  40 }
  41
  42 =head2 Class properties
  43
  44 The following class properties have accessors :
  45
  46     get_dbh/set_dbh
  47
  48
  49 =cut
  50
  51
  52 sub get_dbh {
  53   my $self=shift;
  54   return $self->{dbh};
  55 }
  56
  57 sub set_dbh {
  58   my $self=shift;
  59   $self->{dbh}=shift;
  60 }
  61
  62
  63 ###
  64 1;# do not remove
  65 ###