Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1 by wakaba, Wed Mar 20 09:56:26 2002 UTC | revision 1.2 by wakaba, Sun Mar 31 13:11:55 2002 UTC | |
|---|---|---|
| # | Line 237 sub stringify ($;%) { | Line 237 sub stringify ($;%) { |
| 237 | } | } |
| 238 | ||
| 239 | sub as_string ($;%) {shift->stringify (@_)} | sub as_string ($;%) {shift->stringify (@_)} |
| 240 | =head2 $self->option ($option_name, [$option_value]) | |
| 241 | ||
| 242 | Set/gets new value of the option. | |
| 243 | ||
| 244 | =cut | |
| 245 | ||
| 246 | sub option ($$;$) { | |
| 247 | my $self = shift; | |
| 248 | my ($name, $value) = @_; | |
| 249 | if (defined $value) { | |
| 250 | $self->{option}->{$name} = $value; | |
| 251 | } | |
| 252 | $self->{option}->{$name}; | |
| 253 | } | |
| 254 | ||
| 255 | =head2 $self->delete_comment ($field_body) | =head2 $self->delete_comment ($field_body) |
| 256 |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |