Extensions.pm 1.65 KB
Newer Older
Jessica Severin's avatar
Jessica Severin committed
1 2 3
=pod 

=head1 NAME
Jessica Severin's avatar
Jessica Severin committed
4

5
    Bio::EnsEMBL::Hive::Extensions
Jessica Severin's avatar
Jessica Severin committed
6

7
=head1 DESCRIPTION
Jessica Severin's avatar
Jessica Severin committed
8

9
    Performs method injection into (mainly) ensembl-core classes
Jessica Severin's avatar
Jessica Severin committed
10

11
=head1 LICENSE
Jessica Severin's avatar
Jessica Severin committed
12

13
    Copyright [1999-2014] Wellcome Trust Sanger Institute and the EMBL-European Bioinformatics Institute
Jessica Severin's avatar
Jessica Severin committed
14

15 16
    Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License.
    You may obtain a copy of the License at
Jessica Severin's avatar
Jessica Severin committed
17

18 19 20 21 22 23 24
         http://www.apache.org/licenses/LICENSE-2.0

    Unless required by applicable law or agreed to in writing, software distributed under the License
    is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
    See the License for the specific language governing permissions and limitations under the License.

=head1 CONTACT
Jessica Severin's avatar
Jessica Severin committed
25

26
    Please subscribe to the Hive mailing list:  http://listserver.ebi.ac.uk/mailman/listinfo/ehive-users  to discuss Hive-related questions or to be notified of our updates
Jessica Severin's avatar
Jessica Severin committed
27

Jessica Severin's avatar
Jessica Severin committed
28 29
=cut

30

Jessica Severin's avatar
Jessica Severin committed
31 32
use strict;

33 34 35 36
#######################################
# extensions to
# Bio::EnsEMBL::Pipeline::RunnableDB
#######################################
37

38 39 40 41 42 43 44
sub Bio::EnsEMBL::Pipeline::RunnableDB::debug {
  my $self = shift;
  $self->{'_debug'} = shift if(@_);
  $self->{'_debug'}=0 unless(defined($self->{'_debug'}));  
  return $self->{'_debug'};
}

45 46 47 48 49
#######################################
# extensions to
# Bio::EnsEMBL::Analysis::RunnableDB
#######################################

50 51 52 53 54 55 56
sub Bio::EnsEMBL::Analysis::RunnableDB::debug {
  my $self = shift;
  $self->{'_debug'} = shift if(@_);
  $self->{'_debug'}=0 unless(defined($self->{'_debug'}));  
  return $self->{'_debug'};
}

Jan-Hinnerk Vogel's avatar
 
Jan-Hinnerk Vogel committed
57
 
Jessica Severin's avatar
Jessica Severin committed
58 59
1;