|
0
|
1 package CPT::Plot::Gene;
|
|
|
2 use Moose;
|
|
|
3 use strict;
|
|
|
4 use warnings;
|
|
|
5
|
|
|
6 # ABSTRACT: Stupid representation of a gene. Does not handle joined genes
|
|
|
7 has 'start' => ( is => 'rw', isa => 'Int' );
|
|
|
8 has 'end' => ( is => 'rw', isa => 'Int' );
|
|
|
9 has 'tag' => ( is => 'rw', isa => 'Str' );
|
|
|
10 has 'label' => ( is => 'rw', isa => 'Str' );
|
|
|
11 has 'strand' => ( is => 'rw', isa => 'Str' );
|
|
|
12 has 'color' => ( is => 'rw', isa => 'Any' );
|
|
|
13
|
|
|
14 sub getLocations {
|
|
|
15 my ($self) = @_;
|
|
|
16 return [ $self->start(), $self->end() ];
|
|
|
17 }
|
|
|
18
|
|
|
19 no Moose;
|
|
|
20 1;
|
|
|
21
|
|
|
22 __END__
|
|
|
23
|
|
|
24 =pod
|
|
|
25
|
|
|
26 =encoding UTF-8
|
|
|
27
|
|
|
28 =head1 NAME
|
|
|
29
|
|
|
30 CPT::Plot::Gene - Stupid representation of a gene. Does not handle joined genes
|
|
|
31
|
|
|
32 =head1 VERSION
|
|
|
33
|
|
|
34 version 1.96
|
|
|
35
|
|
|
36 =head1 AUTHOR
|
|
|
37
|
|
|
38 Eric Rasche <rasche.eric@yandex.ru>
|
|
|
39
|
|
|
40 =head1 COPYRIGHT AND LICENSE
|
|
|
41
|
|
|
42 This software is Copyright (c) 2014 by Eric Rasche.
|
|
|
43
|
|
|
44 This is free software, licensed under:
|
|
|
45
|
|
|
46 The GNU General Public License, Version 3, June 2007
|
|
|
47
|
|
|
48 =cut
|
