From afaa7e1277bb0d2902337381a321cd208748a9ea Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Wed, 20 Jul 2005 09:26:11 +0000
Subject: [PATCH] Formerly RegulatoryMotif.pm
---
modules/Bio/EnsEMBL/RegulatoryFactor.pm | 105 ++++++++++++++++++++++++
1 file changed, 105 insertions(+)
create mode 100644 modules/Bio/EnsEMBL/RegulatoryFactor.pm
diff --git a/modules/Bio/EnsEMBL/RegulatoryFactor.pm b/modules/Bio/EnsEMBL/RegulatoryFactor.pm
new file mode 100644
index 0000000000..9227cfca25
--- /dev/null
+++ b/modules/Bio/EnsEMBL/RegulatoryFactor.pm
@@ -0,0 +1,105 @@
+use strict;
+
+package Bio::EnsEMBL::RegulatoryFactor;
+
+use Bio::EnsEMBL::Storable;
+use Bio::EnsEMBL::Utils::Argument qw(rearrange);
+
+use vars qw(@ISA);
+@ISA = qw(Bio::EnsEMBL::Storable);
+
+
+=head2 new
+
+ Arg [NAME] : string (optional)
+ The name of this regulatory factor
+ Arg [TYPE]: string (optional)
+ The type of repeat consensus
+ Arg [...]: Named arguments to superclass constructor
+ (see Bio::EnsEMBL::Storable)
+ Example : $rc = Bio::EnsEMBL::RegulatoryFactor->new
+ (-NAME => 'SomeFactorName'
+ -TYPE => 'promoter',
+ -DBID => 1023,
+ -ADAPTOR => $rc_adaptor);
+ Description: Creates a new Bio::EnsEMBL::RegulatoryFactor object
+ Returntype : Bio::EnsEMBL::RegulatoryFactor
+ Exceptions : none
+ Caller : RegulatoryFactor
+
+=cut
+
+sub new {
+ my $caller = shift;
+
+ my $class = ref($caller) || $caller;
+
+ my $self = $class->SUPER::new(@_);
+
+ my ($name, $type ) =
+ rearrange(['NAME', 'TYPE'], @_);
+
+ $self->{'name'} = $name;
+ $self->{'type'} = $type;
+
+ return $self;
+}
+
+
+sub new_fast {
+ my $class = shift;
+ my $hashref = shift;
+ return bless $hashref, $class;
+}
+
+
+=head2 name
+
+ Arg [1] : string $name (optional)
+ Example : $name = $regulatory_factor->name()
+ Description: Getter/Setter for the name of this regulatory factor
+ Returntype : string
+ Exceptions : none
+ Caller : general
+
+=cut
+
+sub name {
+ my $self = shift;
+ $self->{'name'} = shift if(@_);
+ return $self->{'name'};
+}
+
+
+=head2 type
+
+ Arg [1] : string $type
+ Example : $type = $regulatory_factor->type()
+ Description: Getter/Setter for the length of this regulatory factor
+ Returntype : int
+ Exceptions : none
+ Caller : general
+
+=cut
+
+sub type {
+ my $self = shift;
+ $self->{'type'} = shift if(@_);
+ return $self->{'type'};
+}
+
+1;
+
+__END__
+
+=head1 NAME - Bio::EnsEMBL::RegulatoryFactor
+
+=head1 DESCRIPTION
+
+This object represents an entry in the
+regulatory_factor table.
+
+=head1 AUTHOR
+
+Glenn Proctor< email> glenn@ebi.ac.uk
+
--
GitLab