Commit a6a11141 authored by Tiago Grego's avatar Tiago Grego
Browse files

use parent not base

parent 1df1a346
......@@ -33,7 +33,7 @@ use Carp;
use Bio::EnsEMBL::IO::Object::ColumnBasedGeneric;
use base qw/Bio::EnsEMBL::IO::TextParser/;
use parent qw/Bio::EnsEMBL::IO::TextParser/;
our %sub_strings = (
'\n' => "\n",
......
......@@ -28,7 +28,7 @@ package Bio::EnsEMBL::IO::ListBasedParser;
use strict;
use warnings;
use base qw/Bio::EnsEMBL::IO::TextParser/;
use parent qw/Bio::EnsEMBL::IO::TextParser/;
=head2 open
......
......@@ -39,7 +39,7 @@ rather than GFF3 as the generic object does.
package Bio::EnsEMBL::IO::Object::GFF3;
use base qw/Bio::EnsEMBL::IO::Object::ColumnBasedGeneric/;
use parent qw/Bio::EnsEMBL::IO::Object::ColumnBasedGeneric/;
use strict;
use warnings;
......
......@@ -39,7 +39,7 @@ rather than GFF3 as the generic object does.
package Bio::EnsEMBL::IO::Object::GTF;
use base qw/Bio::EnsEMBL::IO::Object::ColumnBasedGeneric/;
use parent qw/Bio::EnsEMBL::IO::Object::ColumnBasedGeneric/;
use strict;
use warnings;
......
......@@ -42,7 +42,7 @@ elements via setters/getters. Setter/getters are dynamically added to the class
package Bio::EnsEMBL::IO::Object::GXFMetadata;
use base qw/Bio::EnsEMBL::IO::Object::Metadata/;
use parent qw/Bio::EnsEMBL::IO::Object::Metadata/;
use strict;
use warnings;
......
......@@ -36,7 +36,7 @@ format the record as VCF4.
package Bio::EnsEMBL::IO::Object::VCF4;
use base qw/Bio::EnsEMBL::IO::Object::ColumnBasedGeneric/;
use parent qw/Bio::EnsEMBL::IO::Object::ColumnBasedGeneric/;
use strict;
use warnings;
......
......@@ -42,7 +42,7 @@ elements via setters/getters. Setter/getters are dynamically added to the class
package Bio::EnsEMBL::IO::Object::VCF4Metadata;
use base qw/Bio::EnsEMBL::IO::Object::Metadata/;
use parent qw/Bio::EnsEMBL::IO::Object::Metadata/;
use strict;
use warnings;
......
......@@ -109,7 +109,7 @@ use strict;
use warnings;
use Carp;
use base qw/Bio::EnsEMBL::IO::ColumnBasedParser/;
use parent qw/Bio::EnsEMBL::IO::ColumnBasedParser/;
our ($AUTOLOAD);
=head2 open
......
......@@ -42,7 +42,7 @@ use Storable qw(freeze thaw);
use Bio::EnsEMBL::IO::Format::VCF4;
use base qw/Bio::EnsEMBL::IO::ColumnBasedParser/;
use parent qw/Bio::EnsEMBL::IO::ColumnBasedParser/;
my $version = 4.2;
......
......@@ -35,7 +35,7 @@ use Bio::EnsEMBL::IO::Format::Bed;
use Bio::EnsEMBL::IO::Format::BedDetail;
use Bio::EnsEMBL::IO::Format::BedGraph;
use base qw/Bio::EnsEMBL::IO::TrackBasedParser/;
use parent qw/Bio::EnsEMBL::IO::TrackBasedParser/;
=head2 add_format
......
......@@ -41,7 +41,7 @@ use Bio::EnsEMBL::IO::TabixParser;
use Bio::EnsEMBL::IO::Parser::Bed;
use Bio::DB::HTS::Tabix;
use base qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::Parser::Bed/;
use parent qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::Parser::Bed/;
sub open {
my ($caller, $filename, @other_args) = @_;
......
......@@ -39,7 +39,7 @@ use warnings;
use Bio::EnsEMBL::IO::TabixParser;
use Bio::DB::HTS::Tabix;
use base qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::ColumnBasedParser/;
use parent qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::ColumnBasedParser/;
sub open {
my ($caller, $filename, @other_args) = @_;
......
......@@ -31,7 +31,7 @@ use strict;
use warnings;
no warnings 'uninitialized';
use base qw/Bio::EnsEMBL::IO::ListBasedParser/;
use parent qw/Bio::EnsEMBL::IO::ListBasedParser/;
=head2 get_coords
......
......@@ -26,7 +26,7 @@ package Bio::EnsEMBL::IO::Parser::EMBL;
use strict;
use warnings;
use base qw/Bio::EnsEMBL::IO::TokenBasedParser/;
use parent qw/Bio::EnsEMBL::IO::TokenBasedParser/;
=head2 open
......
......@@ -33,7 +33,7 @@ package Bio::EnsEMBL::IO::Parser::EMF;
use strict;
use warnings;
use base qw/Bio::EnsEMBL::IO::TokenBasedParser/;
use parent qw/Bio::EnsEMBL::IO::TokenBasedParser/;
=head2 open
......
......@@ -33,7 +33,7 @@ package Bio::EnsEMBL::IO::Parser::Fasta;
use strict;
use warnings;
use base qw/Bio::EnsEMBL::IO::TokenBasedParser/;
use parent qw/Bio::EnsEMBL::IO::TokenBasedParser/;
use Bio::EnsEMBL::IO::Object::Fasta;
=head2 open
......
......@@ -31,7 +31,7 @@ use warnings;
use Bio::EnsEMBL::IO::Parser::Fasta;
use base qw/Bio::EnsEMBL::IO::Parser::GXF/;
use parent qw/Bio::EnsEMBL::IO::Parser::GXF/;
sub open {
my ($caller, $filename, @other_args) = @_;
......
......@@ -41,7 +41,7 @@ use Bio::EnsEMBL::IO::TabixParser;
use Bio::EnsEMBL::IO::Parser::GFF3;
use Bio::DB::HTS::Tabix;
use base qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::Parser::GFF3/;
use parent qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::Parser::GFF3/;
sub open {
my ($caller, $filename, @other_args) = @_;
......
......@@ -27,7 +27,7 @@ package Bio::EnsEMBL::IO::Parser::GTF;
use strict;
use warnings;
use base qw/Bio::EnsEMBL::IO::Parser::GXF/;
use parent qw/Bio::EnsEMBL::IO::Parser::GXF/;
use Bio::EnsEMBL::IO::Object::GTF;
......
......@@ -41,7 +41,7 @@ use Bio::EnsEMBL::IO::TabixParser;
use Bio::EnsEMBL::IO::Parser::GTF;
use Bio::DB::HTS::Tabix;
use base qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::Parser::GTF/;
use parent qw/Bio::EnsEMBL::IO::TabixParser Bio::EnsEMBL::IO::Parser::GTF/;
sub open {
my ($caller, $filename, @other_args) = @_;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment