--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/CPT/Plot/Gene.pm	Mon Jun 05 02:48:47 2023 +0000
@@ -0,0 +1,48 @@
+package CPT::Plot::Gene;
+use Moose;
+use strict;
+use warnings;
+
+# ABSTRACT: Stupid representation of a gene. Does not handle joined genes
+has 'start'  => ( is => 'rw', isa => 'Int' );
+has 'end'    => ( is => 'rw', isa => 'Int' );
+has 'tag'    => ( is => 'rw', isa => 'Str' );
+has 'label'  => ( is => 'rw', isa => 'Str' );
+has 'strand' => ( is => 'rw', isa => 'Str' );
+has 'color'  => ( is => 'rw', isa => 'Any' );
+
+sub getLocations {
+	my ($self) = @_;
+	return [ $self->start(), $self->end() ];
+}
+
+no Moose;
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPT::Plot::Gene - Stupid representation of a gene. Does not handle joined genes
+
+=head1 VERSION
+
+version 1.96
+
+=head1 AUTHOR
+
+Eric Rasche <rasche.eric@yandex.ru>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2014 by Eric Rasche.
+
+This is free software, licensed under:
+
+  The GNU General Public License, Version 3, June 2007
+
+=cut