Bio::Expression
Sample
Toolbar
Summary
Bio::Expression::Sample - DESCRIPTION of Object
Package variables
No package variables defined.
Inherit
Synopsis
Give standard usage here
Description
Describe the object here
Methods
Methods description
Usage : my $obj = Bio::Expression::Sample->new();
Function: Builds a new Bio::Expression::Sample object
Returns : an instance of Bio::Expression::Sample
Args : |
Usage : $obj->_initialize(%arg);
Function: Internal method to initialize a new Bio::Expression::Sample object
Returns : true on success
Args : passed through to new() |
Usage : $obj->accession($newval)
Function:
Example :
Returns : value of accession (a scalar)
Args : on set, new value (a scalar or undef, optional) |
Usage : $obj->dataset($newval)
Function:
Example :
Returns : value of dataset (a scalar)
Args : on set, new value (a scalar or undef, optional) |
Usage : $obj->db($newval)
Function:
Example :
Returns : value of db (a scalar)
Args : on set, new value (a scalar or undef, optional) |
Usage : $obj->name($newval)
Function:
Example :
Returns : value of name (a scalar)
Args : on set, new value (a scalar or undef, optional) |
Usage : $obj->source_name($newval)
Function:
Example :
Returns : value of source_name (a scalar)
Args : on set, new value (a scalar or undef, optional) |
Usage : $obj->description($newval)
Function:
Example :
Returns : value of description (a scalar)
Args : on set, new value (a scalar or undef, optional) |
Usage : $obj->treatment_description($newval)
Function:
Example :
Returns : value of treatment_description (a scalar)
Args : on set, new value (a scalar or undef, optional) |
Methods code
sub new
{ my($class,@args) = @_;
my $self = $class->SUPER::new(@args);
$self->_initialize(@args);
return $self; } | sub _initialize
{ my($self,%arg) = @_;
foreach my $arg (keys %arg){
my $marg = $arg;
$marg =~ s/^-//;
$self->$marg($arg{$arg}) if $self->can($marg);
}
return 1;} | sub accession
{ my($self,$val) = @_;
$self->{'accession'} = $val if defined($val);
return $self->{'accession'};} | sub dataset
{ my($self,$val) = @_;
$self->{'dataset'} = $val if defined($val);
return $self->{'dataset'};} | sub db
{ my($self,$val) = @_;
$self->{'db'} = $val if defined($val);
return $self->{'db'};} | sub name
{ my($self,$val) = @_;
$self->_load();
$self->{'name'} = $val if defined($val);
return $self->{'name'};} | sub source_name
{ my($self,$val) = @_;
$self->_load();
$self->{'source_name'} = $val if defined($val);
return $self->{'source_name'};} | sub description
{ my($self,$val) = @_;
$self->_load();
$self->{'description'} = $val if defined($val);
return $self->{'description'};} | sub treatment_description
{ my($self,$val) = @_;
$self->_load();
$self->{'treatment_description'} = $val if defined($val);
return $self->{'treatment_description'};} | sub _load
{ my $self = shift;
if ( $self->{'_load'} ) {
return 1;
}
$self->{'_load'}++;
$self->db->fill_sample( $self );
return $self->{'_load'};
}
1;} | General documentation
User feedback is an integral part of the evolution of this and other
Bioperl modules. Send your comments and suggestions preferably to
the Bioperl mailing list. Your participation is much appreciated.
bioperl-l@bioperl.org - General discussion
http://bioperl.org/wiki/Mailing_lists - About the mailing lists
Please direct usage questions or support issues to the mailing list:
bioperl-l@bioperl.org
rather than to the module maintainer directly. Many experienced and
reponsive experts will be able look at the problem and quickly
address it. Please include a thorough description of the problem
with code and data examples if at all possible.
Report bugs to the Bioperl bug tracking system to help us keep track
of the bugs and their resolution. Bug reports can be submitted via
the web:
http://bugzilla.open-bio.org/
The rest of the documentation details each of the object methods.
Internal methods are usually preceded with a _