None available.
sub biotypes
{ my ($self,$value) = @_;
if (defined $value) {
$self->{_layer_biotypes} = $value;
}
return $self->{_layer_biotypes};} | sub discard
{ my ($self,$value) = @_;
if (defined $value) {
$self->{_layer_discard} = $value;
}
return $self->{_layer_discard};} | sub filter_against
{ my ($self,$value) = @_;
if (defined $value) {
$self->{_layer_filter_against} = $value;
}
return $self->{_layer_filter_against};} | sub filter_object
{ my ($self,$value) = @_;
if (defined $value) {
$self->{_layer_filter} = $value;
}
return $self->{_layer_filter};} | sub genes
{ my ($self,$value) = @_;
if (defined $value) {
$self->{_layer_genes} = $value;
}
return $self->{_layer_genes};
}
1;} | sub id
{ my ($self,$value) = @_;
if (defined $value) {
$self->{_layer_id} = $value;
}
return $self->{_layer_id};} | sub new
{ my ($class, @args) = @_;
my $self = bless {}, $class;
my ($id,
$discard,
$genes,
$filter_object,
$filter_against,
$biotypes) = rearrange
(['ID','DISCARD','GENES','FILTER_OBJECT','FILTER_AGAINST','BIOTYPES'],@args);
throw("Layers must have an id") if not defined $id;
throw("Layers must have a list of biotypes") if not defined $biotypes;
$discard = 0 if not defined $discard;
$genes = [] if not defined $genes;
$filter_against = [] if not defined $filter_against;
$self->id($id);
$self->filter_object($filter_object) if defined $filter_object;
$self->filter_against($filter_against);
$self->biotypes($biotypes);
$self->discard($discard);
$self->genes($genes);
return $self;} |