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

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

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

revision 1.19 by wakaba, Sun Jul 21 03:25:00 2002 UTC revision 1.20 by wakaba, Thu Aug 1 06:42:38 2002 UTC
# Line 17  use overload '""' => sub { $_[0]->string Line 17  use overload '""' => sub { $_[0]->string
17               #'ne' => sub { $_[0]->{field_body} ne $_[1] },               #'ne' => sub { $_[0]->{field_body} ne $_[1] },
18               fallback => 1;               fallback => 1;
19    
 =head1 CONSTRUCTORS  
   
 The following methods construct new C<Message::Field::Structured> objects:  
   
 =over 4  
   
 =cut  
   
20  ## Initialize of this class -- called by constructors  ## Initialize of this class -- called by constructors
21    %DEFAULT = (    %DEFAULT = (
22      _ARRAY_NAME => '',      _ARRAY_NAME => '',
# Line 64  sub _init ($;%) { Line 56  sub _init ($;%) {
56    for my $name (keys %options) {    for my $name (keys %options) {
57      if (substr ($name, 0, 1) eq '-') {      if (substr ($name, 0, 1) eq '-') {
58        $self->{option}->{substr ($name, 1)} = $options{$name};        $self->{option}->{substr ($name, 1)} = $options{$name};
59      } elsif (lc $name eq 'body') {      } elsif ($name eq 'body') {
60        $self->{field_body} = $options{$name};        $self->{field_body} = $options{$name};
61      }      }
62    }    }
63    $self->{comment} = [];    $self->{comment} = [];
64  }  }
65    
66    =head1 CONSTRUCTORS
67    
68    The following methods construct new C<Message::Field::Unstructured> objects:
69    
70    =over 4
71    
72  =item Message::Field::Structured->new ([%options])  =item Message::Field::Structured->new ([%options])
73    
74  Constructs a new C<Message::Field::Structured> object.  You might pass some  Constructs a new C<Message::Field::Structured> object.  You might pass some
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24