Mercurial > repos > cpt > cpt_psm_plotter

comparison cpt_psm_plotter/lib/CPT/Plot/Class.pm @ 0:54c7a3ea81e2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author cpt
date Tue, 05 Jul 2022 05:40:36 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:54c7a3ea81e2
1 package CPT::Plot::Class;
2 use Moose;
3 use Data::Dumper;
4
5 # ABSTRACT: Class of objects for use in a genome map
6 #
7 has 'objects' => ( is => 'rw', isa => 'ArrayRef', default => sub { [] } );
8
9 # Should this class be used in calculation of partitions
10 has 'included' => ( is => 'rw', isa => 'Bool' );
11
12 has 'key' => ( is => 'rw', isa => 'Str' );
13 has 'color' => ( is => 'rw', isa => 'Str' );
14 has 'border' => ( is => 'rw', isa => 'Str' );
15 has 'plot' => ( is => 'rw', isa => 'Bool' );
16
17 sub addObject {
18 my ( $self, $object ) = @_;
19 push( @{ $self->objects() }, $object );
20 }
21
22 sub getItemList {
23 my ($self) = @_;
24 my @items;
25 foreach ( @{ $self->objects() } ) {
26 push( @items, $_->getLocations() );
27 }
28 return \@items;
29 }
30
31 sub getObjects {
32 my ($self) = @_;
33 return $self->objects();
34 }
35
36 sub getMemberCount {
37 my ($self) = @_;
38 return scalar @{ $self->objects() };
39 }
40
41 no Moose;
42 1;
43
44 __END__
45
46 =pod
47
48 =encoding UTF-8
49
50 =head1 NAME
51
52 CPT::Plot::Class - Class of objects for use in a genome map
53
54 =head1 VERSION
55
56 version 1.96
57
58 =head1 AUTHOR
59
60 Eric Rasche <rasche.eric@yandex.ru>
61
62 =head1 COPYRIGHT AND LICENSE
63
64 This software is Copyright (c) 2014 by Eric Rasche.
65
66 This is free software, licensed under:
67
68 The GNU General Public License, Version 3, June 2007
69
70 =cut