Bio/Expression/Contact.pm

   1 # $Id$
   2 #
   3 # BioPerl module for Bio::Expression::Contact
   4 #
   5 # Cared for by Allen Day <allenday@ucla.edu>
   6 #
   7 # Copyright Allen Day
   8 #
   9 # You may distribute this module under the same terms as perl itself
  10
  11 # POD documentation - main docs before the code
  12
  13 =head1 NAME
  14
  15 Bio::Expression::Contact - DESCRIPTION of Object
  16
  17 =head1 SYNOPSIS
  18
  19 Give standard usage here
  20
  21 =head1 DESCRIPTION
  22
  23 Describe the object here
  24
  25 =head1 FEEDBACK
  26
  27 =head2 Mailing Lists
  28
  29 User feedback is an integral part of the evolution of this and other
  30 Bioperl modules. Send your comments and suggestions preferably to
  31 the Bioperl mailing list.  Your participation is much appreciated.
  32
  33   bioperl-l@bioperl.org                  - General discussion
  34   http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
  35
  36 =head2 Reporting Bugs
  37
  38 Report bugs to the Bioperl bug tracking system to help us keep track
  39 of the bugs and their resolution. Bug reports can be submitted via
  40 the web:
  41
  42   http://bugzilla.open-bio.org/
  43
  44 =head1 AUTHOR - Allen Day
  45
  46 Email allenday@ucla.edu
  47
  48 =head1 APPENDIX
  49
  50 The rest of the documentation details each of the object methods.
  51 Internal methods are usually preceded with a _
  52
  53 =cut
  54
  55
  56 # Let the code begin...
  57
  58
  59 package Bio::Expression::Contact;
  60 use strict;
  61 use base qw(Bio::Root::Root);
  62
  63 =head2 new()
  64
  65  Usage   : my $obj = Bio::Expression::Contact->new();
  66  Function: Builds a new Bio::Expression::Contact object
  67  Returns : an instance of Bio::Expression::Contact
  68  Args    :
  69
  70
  71 =cut
  72
  73 sub new {
  74   my($class,@args) = @_;
  75
  76   my $self = $class->SUPER::new(@args);
  77   $self->_initialize(@args);
  78   return $self;
  79 }
  80
  81 =head2 _initialize()
  82
  83  Usage   : $obj->_initialize(%arg);
  84  Function: Internal method to initialize a new Bio::Expression::Contact object
  85  Returns : true on success
  86  Args    : passed through to new()
  87
  88 =cut
  89
  90 sub _initialize {
  91   my($self,%arg) = @_;
  92
  93   foreach my $arg (keys %arg){
  94     my $marg = $arg;
  95     $marg =~ s/^-//;
  96     $self->$marg($arg{$arg}) if $self->can($marg);
  97   }
  98
  99   return 1;
 100 }
 101
 102 =head2 source()
 103
 104  Usage   : $obj->source($newval)
 105  Function:
 106  Example :
 107  Returns : value of source (a scalar)
 108  Args    : on set, new value (a scalar or undef, optional)
 109
 110
 111 =cut
 112
 113 sub source {
 114   my($self,$val) = @_;
 115   $self->{'source'} = $val if defined($val);
 116   return $self->{'source'};
 117 }
 118
 119 =head2 accession()
 120
 121  Usage   : $obj->accession($newval)
 122  Function:
 123  Example :
 124  Returns : value of accession (a scalar)
 125  Args    : on set, new value (a scalar or undef, optional)
 126
 127
 128 =cut
 129
 130 sub accession {
 131   my($self,$val) = @_;
 132   $self->{'accession'} = $val if defined($val);
 133   return $self->{'accession'};
 134 }
 135
 136 =head2 name()
 137
 138  Usage   : $obj->name($newval)
 139  Function:
 140  Example :
 141  Returns : value of name (a scalar)
 142  Args    : on set, new value (a scalar or undef, optional)
 143
 144
 145 =cut
 146
 147 sub name {
 148   my($self,$val) = @_;
 149   $self->{'name'} = $val if defined($val);
 150   return $self->{'name'};
 151 }
 152
 153 =head2 db()
 154
 155  Usage   : $obj->db($newval)
 156  Function:
 157  Example :
 158  Returns : value of db (a scalar)
 159  Args    : on set, new value (a scalar or undef, optional)
 160
 161
 162 =cut
 163
 164 sub db {
 165   my($self,$val) = @_;
 166   $self->{'db'} = $val if defined($val);
 167   return $self->{'db'};
 168 }
 169
 170
 171 1;