Parent Directory | Revision Log | Patch
revision 1.4 by jlenton, Wed Jun 4 17:25:23 2003 UTC | revision 1.5 by jlenton, Mon Aug 11 22:33:47 2003 UTC | |
---|---|---|
# | Line 22 sub initialize | Line 22 sub initialize |
22 | return $self; | return $self; |
23 | } | } |
24 | ||
25 | sub comment | |
26 | { | |
27 | my $self = shift; | |
28 | my $which = shift; | |
29 | my $comment = shift; | |
30 | ||
31 | if (defined $comment) | |
32 | { | |
33 | $self->{'COMMENT'}->{$which} = $comment; | |
34 | } | |
35 | ||
36 | return $self->{'COMMENT'}->{$which}; | |
37 | } | |
38 | ||
39 | sub name | sub name |
40 | { | { |
41 | my $self = shift; | my $self = shift; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |