Mercurial > repos > mahtabm > ensembl
comparison variant_effect_predictor/Bio/EnsEMBL/Variation/BaseTranscriptVariationAllele.pm @ 0:1f6dce3d34e0
Uploaded
author | mahtabm |
---|---|
date | Thu, 11 Apr 2013 02:01:53 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:1f6dce3d34e0 |
---|---|
1 =head1 LICENSE | |
2 | |
3 Copyright (c) 1999-2012 The European Bioinformatics Institute and | |
4 Genome Research Limited. All rights reserved. | |
5 | |
6 This software is distributed under a modified Apache license. | |
7 For license details, please see | |
8 | |
9 http://www.ensembl.org/info/about/code_licence.html | |
10 | |
11 =head1 CONTACT | |
12 | |
13 Please email comments or questions to the public Ensembl | |
14 developers list at <dev@ensembl.org>. | |
15 | |
16 Questions may also be sent to the Ensembl help desk at | |
17 <helpdesk@ensembl.org>. | |
18 | |
19 =cut | |
20 | |
21 =head1 NAME | |
22 | |
23 Bio::EnsEMBL::Variation::BaseTranscriptVariationAllele | |
24 | |
25 =head1 SYNOPSIS | |
26 | |
27 use Bio::EnsEMBL::Variation::BaseTranscriptVariationAllele; | |
28 | |
29 =head1 DESCRIPTION | |
30 | |
31 An helper class for representing an overlap of a Transcript and a | |
32 Variation allele (either sequence or structural). Should not be invoked | |
33 directly. | |
34 | |
35 =cut | |
36 | |
37 package Bio::EnsEMBL::Variation::BaseTranscriptVariationAllele; | |
38 | |
39 use strict; | |
40 use warnings; | |
41 | |
42 use base qw(Bio::EnsEMBL::Variation::VariationFeatureOverlapAllele); | |
43 | |
44 =head2 base_transcript_variation | |
45 | |
46 Description: Get/set the associated BaseTranscriptVariation | |
47 Returntype : Bio::EnsEMBL::Variation::BaseTranscriptVariation | |
48 Exceptions : throws if the argument is the wrong type | |
49 Status : At Risk | |
50 | |
51 =cut | |
52 | |
53 sub base_transcript_variation { | |
54 my ($self, $btv) = @_; | |
55 assert_ref($btv, 'Bio::EnsEMBL::Variation::BaseTranscriptVariation') if $btv; | |
56 return $self->variation_feature_overlap($btv); | |
57 } | |
58 | |
59 =head2 transcript | |
60 | |
61 Description: Get the associated Transcript | |
62 Returntype : Bio::EnsEMBL::Transcript | |
63 Exceptions : none | |
64 Status : At Risk | |
65 | |
66 =cut | |
67 | |
68 sub transcript { | |
69 my $self = shift; | |
70 return $self->base_transcript_variation->transcript; | |
71 } | |
72 | |
73 =head2 base_variation_feature | |
74 | |
75 Description: Get the associated BaseVariationFeature | |
76 Returntype : Bio::EnsEMBL::Variation::BaseVariationFeature | |
77 Exceptions : none | |
78 Status : At Risk | |
79 | |
80 =cut | |
81 | |
82 sub base_variation_feature { | |
83 my $self = shift; | |
84 return $self->base_transcript_variation->base_variation_feature; | |
85 } | |
86 | |
87 1; |