Skip to content
Snippets Groups Projects
Commit 275edf76 authored by James Gilbert's avatar James Gilbert
Browse files

pod fix and commented out unimplemented method

parent 66f6f1a5
No related branches found
No related tags found
No related merge requests found
......@@ -37,6 +37,7 @@ use Bio::EnsEMBL::Root;
## Changes to new by James Smith - no longer takes statistics
## on creation.. these get added later.
=head2 new
Args [...] : List of named arguments
......
......@@ -14,7 +14,7 @@ Bio::EnsEMBL::Tile - container objects for assembly style information
=head1 SYNOPSIS
@tile_list = $slice->get_tiling_path()
$tile_list = $slice->get_tiling_path()
=head1 DESCRIPTION
......@@ -50,27 +50,28 @@ use Bio::EnsEMBL::Root;
@ISA = qw(Bio::EnsEMBL::Root);
sub new {
my($class,@args) = @_;
my $self = {};
bless $self,$class;
my ($assembled_seq,$assembled_start,$assembled_end,
$component_seq, $component_start, $component_end,
$component_ori ) =
$self->_rearrange([qw(ASSEMBLED_SEQ
ASSEMBLED_START
ASSEMBLED_END
COMPONENT_SEQ
COMPONENT_START
COMPONENT_END
COMPONENT_ORI
)],
@args);
return $self;
}
### JGRG - commented out non-functional new method
#sub new {
# my($class,@args) = @_;
#
# my $self = {};
# bless $self,$class;
#
# my ($assembled_seq,$assembled_start,$assembled_end,
# $component_seq, $component_start, $component_end,
# $component_ori ) =
# $self->_rearrange([qw(ASSEMBLED_SEQ
# ASSEMBLED_START
# ASSEMBLED_END
# COMPONENT_SEQ
# COMPONENT_START
# COMPONENT_END
# COMPONENT_ORI
# )],
# @args);
#
# return $self;
#}
......
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