Toolbar

Summary

BioMart::Configuration::Option

Package variables

Included modules

Inherit

BioMart::Root

Synopsis

Object responsible for Options

Description

Object responsible for Options contained within a BioMart::BaseFilter
implementing object. These Options can represent just simple distinct values
for a filter so a drop-down/radio button can be generated. They can also
contain a BioMart::BaseFilter implementing object themselves, in which case
the root Filter object is an empty container for a drop down list of
Filters

Methods

Methods description

  
  Usage      : no arguments
  Description: creates a new Option object which can contain a single
               Attribue object 
  Returntype : BioMart::Configuration::Option
  Exceptions : none
  Caller     : general

  Usage      : usage
  Description: Description
  Returntype : 
  Exceptions : none
  Caller     : caller

  Usage      : usage
  Description: Description
  Returntype : 
  Exceptions : none
  Caller     : caller

  Usage      : my $subName = $option->dataSetName; 
               $option->dataSetName->($newName);
  Description: get/set for the name of the dataSet which hosts this attribute.
  Returntype : scalar $name
  Exceptions : none
  Caller     : general

  Usage      : Arg [1] - (optional) string $description
  Description: get/set for description
  Returntype : string
  Exceptions : none
  Caller     : general

  Usage      : Arg [1] - (optional) string $display_name
  Description: get/set for display name
  Returntype : string
  Exceptions : none
  Caller     : general

  Usage      : Arg[1] - (optional) BioMart::Configuration::BooleanFilter
               or ValueFilter object
  Description: get/set method for the Filter object for this Option
  Returntype : BioMart::Configuration::BooleanFilter or ValueFilter object
  Exceptions : none
  Caller     : caller

  Usage      : usage
  Description: Description
  Returntype :
  Exceptions : none
  Caller     : caller

  Usage      : usage
  Description: Description
  Returntype :
  Exceptions : none
  Caller     : caller

  Usage      : my $optionName = $option->name; $option->name($optionName);
  Description: get/set for internal name
  Returntype : scalar $name
  Exceptions : none
  Caller     : general

  Usage      : Arg [1] - (optional) string $display_name
  Description: get/set for value
  Returntype : string
  Exceptions : none
  Caller     : general

Methods code

sub _hashCode {

  my $self = shift;
  my $digest = Digest::MD5->new;
  $digest->add($self->SUPER::_hashCode);
  $digest->add($self->filter()->hashCode);
  return $digest->hexdigest;
}

1;

}

sub _init {

  my ($self, @param) = @_;
  $self->SUPER::_init(@param);
  my $proto = shift @param;
  $self->attr('filter', $proto->filter);
  $self->attr('options', $proto->getAllOptions);
  $self->attr('pushActions', $proto->getAllPushActions);

}

sub _new {

  my ($self, @param) = @_;
  $self->SUPER::_new(@param);
  $self->addParams(TITLES, @param);
  $self->attr('filter',undef);
  $self->attr('options',[]);
  $self->attr('pushActions',[]);
  $self->attr('operation','');

}

sub _toSQL {

  my $self = shift;
  my $filter = $self->filter();
  return $filter->toSQL();

}

sub addOption {

  my ($self, $option) = @_;
  my $options = $self->get('options');
  push @{$options}, $option;

}

sub addPushAction {

  my ($self, $pa) = @_;
  my $pas = $self->get('pushActions');
  push @{$pas}, $pa;

}

sub dataSetName {

  # stores dataset name?
  my ($self, $value) = @_;
  if ($value){
      $self->setParam(DATASETNAME, $value);
  }
  return $self->getParam(DATASETNAME);

}

sub description {

  # stores description
  my ($self, $value) = @_;
  if ($value){
    $self->setParam(DESCRIPTION, $value);
  }
  return $self->getParam(DESCRIPTION);

}

sub displayName {

  # stores display name
  my ($self, $value) = @_;
  if ($value){
    $self->setParam(DISPLAYNAME, $value);
  }
  return $self->getParam(DISPLAYNAME);

}

sub filter {

# stores filter
  my ($self, $filter) = @_;
  if ($filter){
    $self->set('filter', $filter);
  }
  return $self->get('filter');

}

sub getAllOptions {

  my $self = shift;
  return $self->get('options');

}

sub getAllPushActions {

  my $self = shift;
  return $self->get('pushActions');

}

sub name {

  # stores internal name
  my ($self, $value) = @_;
  if ($value){
      $self->setParam(NAME, $value);
  }
  return $self->getParam(NAME);

}

sub operation {

  my ($self,$operation) = @_;
  if ($operation) {
    $self->set('operation',$operation);
  }
  return $self->get('operation');

}

sub value {

  # stores display name
  my ($self, $value) = @_;
  if ($value){
    $self->setParam(VALUE, $value);
  }
  return $self->getParam(VALUE);

}

General documentation

This module is part of the BioMart project http://www.biomart.org
Questions can be posted to the mart-dev mailing list: mart-dev@ebi.ac.uk