From aec8a3c04d321fa8e3d313cc2ca85c552a6e5595 Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Wed, 20 Jul 2005 09:01:16 +0000
Subject: [PATCH] Renamed to RegulatoryFactor.pm
---
modules/Bio/EnsEMBL/RegulatoryMotif.pm | 105 -------------------------
1 file changed, 105 deletions(-)
delete mode 100644 modules/Bio/EnsEMBL/RegulatoryMotif.pm
diff --git a/modules/Bio/EnsEMBL/RegulatoryMotif.pm b/modules/Bio/EnsEMBL/RegulatoryMotif.pm
deleted file mode 100644
index a49ec2e6f6..0000000000
--- a/modules/Bio/EnsEMBL/RegulatoryMotif.pm
+++ /dev/null
@@ -1,105 +0,0 @@
-use strict;
-
-package Bio::EnsEMBL::RegulatoryMotif;
-
-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 motif
- Arg [TYPE]: string (optional)
- The type of repeat consensus
- Arg [...]: Named arguments to superclass constructor
- (see Bio::EnsEMBL::Storable)
- Example : $rc = Bio::EnsEMBL::RegulatoryMotif->new
- (-NAME => 'SomeMotifName'
- -TYPE => 'promoter',
- -DBID => 1023,
- -ADAPTOR => $rc_adaptor);
- Description: Creates a new Bio::EnsEMBL::RegulatoryMotif object
- Returntype : Bio::EnsEMBL::RegulatoryMotif
- Exceptions : none
- Caller : RegulatoryMotif
-
-=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_motif->name()
- Description: Getter/Setter for the name of this regulatory motif
- 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_motif->type()
- Description: Getter/Setter for the length of this regulatory motif
- 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::RegulatoryMotif
-
-=head1 DESCRIPTION
-
-This object represents an entry in the
-regulatory_motif table.
-
-=head1 AUTHOR
-
-Glenn Proctor< email> glenn@ebi.ac.uk
-
--
GitLab