oops, this directory was missed...
[cview.git] / lib / CXGN / Legend.pm
blob5c49b009fd75664202eec706fe9c50f7418f85e5
2 use strict;
4 package CXGN::Cview::Legend;
6 =head2 new
8 Usage:
9 Desc:
10 Ret:
11 Args:
12 Side Effects:
13 Example:
15 =cut
17 sub new {
18 my $class = shift;
19 my $viewer = shift;
20 my $self = bless {}, $class;
21 $self->set_viewer($viewer);
22 return $self;
25 =head2 accessors get_viewer, set_viewer
27 Usage:
28 Desc:
29 Property
30 Side Effects:
31 Example:
33 =cut
35 sub get_viewer {
36 my $self = shift;
37 return $self->{viewer};
40 sub set_viewer {
41 my $self = shift;
42 $self->{viewer} = shift;
47 =head2 accessors get_legend_html, set_legend_html
49 Usage:
50 Desc:
51 Property
52 Side Effects:
53 Example:
55 =cut
57 sub get_legend_html {
58 my $self = shift;
59 return $self->{legend_html};
62 sub set_legend_html {
63 my $self = shift;
64 $self->{legend_html} = shift;
67 =head2 accessors get_name, set_name
69 Usage:
70 Desc:
71 Property
72 Side Effects:
73 Example:
75 =cut
77 sub get_name {
78 my $self = shift;
79 return $self->{name};
82 sub set_name {
83 my $self = shift;
84 $self->{name} = shift;
88 =head2 accessors get_mode, set_mode
90 Usage:
91 Desc:
92 Property
93 Side Effects:
94 Example:
96 =cut
98 sub get_mode {
99 my $self = shift;
100 return $self->{mode};
103 sub set_mode {
104 my $self = shift;
105 $self->{mode} = shift;
110 =head2 accessors get_value, set_value
112 Usage:
113 Desc:
114 Property
115 Side Effects:
116 Example:
118 =cut
120 sub get_value {
121 my $self = shift;
122 return $self->{value};
125 sub set_value {
126 my $self = shift;
127 $self->{value} = shift;
130 =head2 accessors get_state_hashref, set_state_hashref
132 Usage:
133 Desc:
134 Property
135 Side Effects:
136 Example:
138 =cut
140 sub get_state_hashref {
141 my $self = shift;
142 return $self->{state_hashref};
145 sub set_state_hashref {
146 my $self = shift;
147 $self->{state_hashref} = shift;
150 return 1;