/[suikacvs]/messaging/manakai/lib/Message/Field/MsgID.pm
Suika

Diff of /messaging/manakai/lib/Message/Field/MsgID.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Wed Mar 20 09:56:26 2002 UTC revision 1.2 by wakaba, Tue Mar 26 05:31:55 2002 UTC
# Line 68  sub new ($;%) { Line 68  sub new ($;%) {
68    my $self = bless {}, shift;    my $self = bless {}, shift;
69    my %option = @_;    my %option = @_;
70    for (%OPTION) {$option{$_} ||= $OPTION{$_}}    for (%OPTION) {$option{$_} ||= $OPTION{$_}}
71      $self->{id} = [];
72    $self->{option} = \%option;    $self->{option} = \%option;
73    $self->_init_option ($self->{option}->{field_name});    $self->_init_option ($self->{option}->{field_name});
74    $self;    $self;
# Line 84  sub parse ($$;%) { Line 85  sub parse ($$;%) {
85    my $field_body = shift;    my $field_body = shift;
86    my %option = @_;    my %option = @_;
87    for (%OPTION) {$option{$_} ||= $OPTION{$_}}    for (%OPTION) {$option{$_} ||= $OPTION{$_}}
88      $self->{id} = [];
89    $self->{option} = \%option;    $self->{option} = \%option;
90    $self->_init_option ($self->{option}->{field_name});    $self->_init_option ($self->{option}->{field_name});
91    $field_body = $self->delete_comment ($field_body);    $field_body = $self->delete_comment ($field_body);
# Line 108  L<$self-E<gt>parse_address_list ()>. Line 110  L<$self-E<gt>parse_address_list ()>.
110    
111  =cut  =cut
112    
113  sub id ($) {@{shift->{id}}}  sub id ($) {
114      my $self = shift;
115      wantarray? @{$self->{id}}: $self->{id}->[0];
116    }
117    
118  =head2 $self->add ($msg_id, [%option])  =head2 $self->add ($msg_id, [%option])
119    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24