/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

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

revision 1.1 by wakaba, Wed Mar 13 12:51:11 2002 UTC revision 1.3 by wakaba, Wed Mar 13 14:47:07 2002 UTC
# Line 115  sub field ($$) { Line 115  sub field ($$) {
115    @ret;    @ret;
116  }  }
117    
118    =head2 $self->field_name ($index)
119    
120    Returns C<field-name> of $index'th C<field>.
121    
122    =head2 $self->field_body ($index)
123    
124    Returns C<field-body> of $index'th C<field>.
125    
126    =cut
127    
128    sub field_name ($$) {
129      my $self = shift;
130      $self->{field}->[shift]->{name};
131    }
132    sub field_body ($$) {
133      my $self = shift;
134      $self->{field}->[shift]->{body};
135    }
136    
137  =head2 $self->field_name_list ()  =head2 $self->field_name_list ()
138    
139  Returns list of all C<field-name>s.  (Even if there are two  Returns list of all C<field-name>s.  (Even if there are two
# Line 194  sub delete ($$;$) { Line 213  sub delete ($$;$) {
213    $self;    $self;
214  }  }
215    
216  =head2 $self->count ($field_name)  =head2 $self->count ([$field_name])
217    
218  Returns the number of times the given C<field> appears.  Returns the number of times the given C<field> appears.
219    If no $field_name is given, returns the number
220    of fields.  (Same as $#$self+1)
221    
222  =cut  =cut
223    
224  sub count ($$) {  sub count ($;$) {
225    my $self = shift;    my $self = shift;
226    my ($name) = (lc shift);    my ($name) = (lc shift);
227      unless ($name) {
228        $self->_delete_empty_field ();
229        return $#{$self->{field}}+1;
230      }
231    my $count = 0;    my $count = 0;
232    for my $field (@{$self->{field}}) {    for my $field (@{$self->{field}}) {
233      if ($field->{name} eq $name) {      if ($field->{name} eq $name) {
# Line 232  sub stringify ($;%) { Line 257  sub stringify ($;%) {
257      $name =~ s/((?:^|-)[a-z])/uc($1)/ge if $OPT{capitalize};      $name =~ s/((?:^|-)[a-z])/uc($1)/ge if $OPT{capitalize};
258      push @ret, $name.': '.$self->fold ($field->{body});      push @ret, $name.': '.$self->fold ($field->{body});
259    }    }
260    join "\n", @ret;    my $ret = join ("\n", @ret);
261      $ret? $ret."\n": "";
262  }  }
263    
264  =head2 $self->get_option ($option_name)  =head2 $self->get_option ($option_name)
# Line 308  sub fold ($$;$) { Line 334  sub fold ($$;$) {
334    use Message::Header;    use Message::Header;
335    my $header = Message::Header->parse ($header);    my $header = Message::Header->parse ($header);
336        
337    for my $field (@$header) {    ## Next sample is better.
338      print $field->{name}, "\t=> ", $field->{body}, "\n";    #for my $field (@$header) {
339      #  print $field->{name}, "\t=> ", $field->{body}, "\n";
340      #}
341      
342      for my $i (0..$#$header) {
343        print $header->field_name ($i), "\t=> ", $header->field_body ($i), "\n";
344    }    }
345        
346        
347    ## Make simple header    ## Make simple header
348        
349      use Message::Header;
350    use Message::Field::Address;    use Message::Field::Address;
351    my $header = new Message::Header;    my $header = new Message::Header;
352        
# Line 351  Boston, MA 02111-1307, USA. Line 383  Boston, MA 02111-1307, USA.
383  =head1 CHANGE  =head1 CHANGE
384    
385  See F<ChangeLog>.  See F<ChangeLog>.
386    $Date$
387    
388  =cut  =cut
389    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24