Archive Ensembl HomeArchive Ensembl Home
BinValue.pm
Go to the documentation of this file.
00001 =head1 LICENSE
00002 
00003   Copyright (c) 1999-2012 The European Bioinformatics Institute and
00004   Genome Research Limited.  All rights reserved.
00005 
00006   This software is distributed under a modified Apache license.
00007   For license details, please see
00008 
00009     http://www.ensembl.org/info/about/code_licence.html
00010 
00011 =head1 CONTACT
00012 
00013   Please email comments or questions to the public Ensembl
00014   developers list at <dev@ensembl.org>.
00015 
00016   Questions may also be sent to the Ensembl help desk at
00017   <helpdesk@ensembl.org>.
00018 
00019 =cut
00020 
00021 =head1 NAME
00022 
00023 Bio::EnsEMBL::DensityPlot::BinValue
00024 
00025 =head1 SYNOPSIS
00026 
00027 =head1 DESCRIPTION
00028 
00029 This object deals with the raw data to built the density plots
00030 
00031 =head1 METHODS
00032 
00033 =cut
00034 
00035 package Bio::EnsEMBL::DensityPlot::BinValue;
00036 use vars qw($AUTOLOAD @ISA);
00037 use strict;
00038 
00039 # Object preamble - inheriets from Bio::Root::Object
00040 
00041 use Bio::EnsEMBL::Root;
00042 
00043 @ISA = qw(Bio::EnsEMBL::Root Exporter);
00044 #@EXPORT_OK = qw();
00045 # new() is inherited from Bio::Root::Object
00046 
00047 # _initialize is where the heavy stuff will happen when new is called
00048 
00049 sub new {
00050     my ($class,@args) = @_;
00051     
00052     my $self = {};
00053     bless $self,$class;
00054     return $self;
00055 }
00056 
00057 =head2 chromosomestart
00058 
00059  Title   : ChromosomeStart
00060  Usage   : $obj->ChromosomeStart($newval)
00061  Function: 
00062  Returns : value of ChromosomeStart
00063  Args    : newvalue (optional)
00064 
00065 
00066 =cut
00067 
00068 sub chromosomestart{
00069    my $obj = shift;
00070    if( @_ ) {
00071       my $value = shift;
00072       $obj->{'chromosomestart'} = $value;
00073     }
00074     return $obj->{'chromosomestart'};
00075 
00076 }
00077 
00078 =head2 chromosomeend
00079 
00080  Title   : chromosomesnd
00081  Usage   : $obj->chromosomeend($newval)
00082  Function: 
00083  Returns : value of chromosomeend
00084  Args    : newvalue (optional)
00085 
00086 
00087 =cut
00088 
00089 sub chromosomeend{
00090    my $obj = shift;
00091    if( @_ ) {
00092       my $value = shift;
00093       $obj->{'chromosomeend'} = $value;
00094     }
00095     return $obj->{'chromosomeend'};
00096 
00097 }
00098 
00099 
00100 =head2 value
00101 
00102  Title   : value
00103  Usage   : $obj->value($newval)
00104  Function: 
00105  Returns : value of value
00106  Args    : newvalue (optional)
00107 
00108 
00109 =cut
00110 
00111 sub value{
00112    my $obj = shift;
00113    if( @_ ) {
00114       my $value = shift;
00115       $obj->{'value'} = $value;
00116     }
00117     return $obj->{'value'};
00118 
00119 }
00120 
00121 
00122 
00123 =head2 scaledvalue
00124 
00125  Title   : scaledvalue
00126  Usage   : $obj->scaledvalue($newval)
00127  Function: 
00128  Returns : this object's scaled value
00129  Args    : newvalue (optional)
00130 
00131 
00132 =cut
00133 
00134 sub scaledvalue{
00135    my $obj = shift;
00136    if( @_ ) {
00137       my $scaledvalue = shift;
00138       $obj->{'scaledvalue'} = $scaledvalue;
00139     }
00140     return $obj->{'scaledvalue'};
00141 
00142 }
00143 
00144 
00145 
00146 =head2 url
00147 
00148  Title   : url
00149  Usage   : $obj->url($newval)
00150  Function: 
00151  Returns : this object's url
00152  Args    : newvalue (optional)
00153 
00154 
00155 =cut
00156 
00157 sub url{
00158    my $obj = shift;
00159    if( @_ ) {
00160       my $url = shift;
00161       $obj->{'url'} = $url;
00162     }
00163     return $obj->{'url'};
00164 
00165 }
00166 
00167 1;