SliceAdaptor.pm 1.58 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14

#
# Ensembl module for Bio::EnsEMBL::Assembly::SliceFactory
#
# Cared for by Ewan Birney <ensembl-dev@ebi.ac.uk>
#
# Copyright Ewan Birney
#
# You may distribute this module under the same terms as perl itself

# POD documentation - main docs before the code

=head1 NAME

15
Bio::EnsEMBL::DBSQL::SliceAdaptor - Adaptors for slices
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

=head1 SYNOPSIS
  



=head1 DESCRIPTION

Factory for getting out slices of assemblies. WebSlice is the highly
accelerated version for the web site.

=head1 AUTHOR - Ewan Birney

This modules is part of the Ensembl project http://www.ensembl.org

Email ensembl-dev@ebi.ac.uk

Describe contact details here

=head1 APPENDIX

The rest of the documentation details each of the object
methods. Internal methods are usually preceded with a _

=cut


# Let the code begin...


46
package Bio::EnsEMBL::DBSQL::SliceAdaptor;
47 48 49
use vars qw(@ISA);
use strict;

50 51
use Bio::EnsEMBL::DBSQL::BaseAdaptor;
use Bio::EnsEMBL::Slice;
52

53
@ISA = ('Bio::EnsEMBL::DBSQL::BaseAdaptor');
54 55


56 57
# new is inherieted from BaseAdaptor

58 59 60 61 62 63 64 65 66 67 68 69 70
=head2 new_slice

 Title   : new_slice
 Usage   :
 Function:
 Example :
 Returns : 
 Args    :


=cut

sub new_slice{
71
    my ($self,$chr,$start,$end,$type) = @_;
72 73


74 75 76 77 78 79 80
    my $slice = Bio::EnsEMBL::Slice->new( -chr_name  => $chr,
					  -chr_start => $start,
					  -chr_end   => $end,
					  -assembly_type      => $type,
					-adaptor => $self);

    return $slice;
81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
}


=head2 new_web_slice

 Title   : new_web_slice
 Usage   :
 Function:
 Example :
 Returns : 
 Args    :


=cut

sub new_web_slice{
97
    my ($self,$chr,$start,$end,$type) = @_;
98 99 100 101
    
    die "Not implemented new slice yet";
    
}