Raw content of Bio::EnsEMBL::DensityPlot::BinValue
<![CDATA[=head1 LICENSE
Copyright (c) 1999-2009 The European Bioinformatics Institute and
Genome Research Limited. All rights reserved.
This software is distributed under a modified Apache license.
For license details, please see
/info/about/code_licence.html
=head1 CONTACT
Please email comments or questions to the public Ensembl
developers list at <ensembl-dev@ebi.ac.uk>.
Questions may also be sent to the Ensembl help desk at
<helpdesk@ensembl.org>.
=cut
=head1 NAME
Bio::EnsEMBL::DensityPlot::BinValue
=head1 SYNOPSIS
=head1 DESCRIPTION
This object deals with the raw data to built the density plots
=head1 METHODS
=cut
package Bio::EnsEMBL::DensityPlot::BinValue;
use vars qw($AUTOLOAD @ISA);
use strict;
# Object preamble - inheriets from Bio::Root::Object
use Bio::EnsEMBL::Root;
@ISA = qw(Bio::EnsEMBL::Root Exporter);
#@EXPORT_OK = qw();
# new() is inherited from Bio::Root::Object
# _initialize is where the heavy stuff will happen when new is called
sub new {
my ($class,@args) = @_;
my $self = {};
bless $self,$class;
return $self;
}
=head2 chromosomestart
Title : ChromosomeStart
Usage : $obj->ChromosomeStart($newval)
Function:
Returns : value of ChromosomeStart
Args : newvalue (optional)
=cut
sub chromosomestart{
my $obj = shift;
if( @_ ) {
my $value = shift;
$obj->{'chromosomestart'} = $value;
}
return $obj->{'chromosomestart'};
}
=head2 chromosomeend
Title : chromosomesnd
Usage : $obj->chromosomeend($newval)
Function:
Returns : value of chromosomeend
Args : newvalue (optional)
=cut
sub chromosomeend{
my $obj = shift;
if( @_ ) {
my $value = shift;
$obj->{'chromosomeend'} = $value;
}
return $obj->{'chromosomeend'};
}
=head2 value
Title : value
Usage : $obj->value($newval)
Function:
Returns : value of value
Args : newvalue (optional)
=cut
sub value{
my $obj = shift;
if( @_ ) {
my $value = shift;
$obj->{'value'} = $value;
}
return $obj->{'value'};
}
=head2 scaledvalue
Title : scaledvalue
Usage : $obj->scaledvalue($newval)
Function:
Returns : this object's scaled value
Args : newvalue (optional)
=cut
sub scaledvalue{
my $obj = shift;
if( @_ ) {
my $scaledvalue = shift;
$obj->{'scaledvalue'} = $scaledvalue;
}
return $obj->{'scaledvalue'};
}
=head2 url
Title : url
Usage : $obj->url($newval)
Function:
Returns : this object's url
Args : newvalue (optional)
=cut
sub url{
my $obj = shift;
if( @_ ) {
my $url = shift;
$obj->{'url'} = $url;
}
return $obj->{'url'};
}
1;
]]>