2 |
## $Id$ |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/02/11 11:12:44 joko |
6 |
|
## + sub get |
7 |
|
## |
8 |
## Revision 1.1 2002/12/27 16:03:58 joko |
## Revision 1.1 2002/12/27 16:03:58 joko |
9 |
## + initial check-in |
## + initial check-in |
10 |
## |
## |
67 |
return $self->{value} = shift; |
return $self->{value} = shift; |
68 |
} |
} |
69 |
|
|
70 |
|
sub get { |
71 |
|
my $self = shift; |
72 |
|
return $self->value(); |
73 |
|
} |
74 |
|
|
75 |
1; |
1; |