| 91 |
my $self = shift; |
my $self = shift; |
| 92 |
$self->unquote_quoted_string ($self->unquote_comment ($self->{field_body})); |
$self->unquote_quoted_string ($self->unquote_comment ($self->{field_body})); |
| 93 |
} |
} |
| 94 |
|
=head2 $self->option ($option_name, [$option_value]) |
| 95 |
|
|
| 96 |
|
Set/gets new value of the option. |
| 97 |
|
|
| 98 |
|
=cut |
| 99 |
|
|
| 100 |
|
sub option ($$;$) { |
| 101 |
|
my $self = shift; |
| 102 |
|
my ($name, $value) = @_; |
| 103 |
|
if (defined $value) { |
| 104 |
|
$self->{option}->{$name} = $value; |
| 105 |
|
} |
| 106 |
|
$self->{option}->{$name}; |
| 107 |
|
} |
| 108 |
|
|
| 109 |
## Decode C<qcontent> (content of C<quoted-string>). |
## Decode C<qcontent> (content of C<quoted-string>). |
| 110 |
sub _decode_qcontent ($$) { |
sub _decode_qcontent ($$) { |
Parent Directory
| 
Revision Log
| 
Patch