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 |
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) { |
333 |
use Message::Header; |
use Message::Header; |
334 |
my $header = Message::Header->parse ($header); |
my $header = Message::Header->parse ($header); |
335 |
|
|
336 |
for my $field (@$header) { |
## Next sample is better. |
337 |
print $field->{name}, "\t=> ", $field->{body}, "\n"; |
#for my $field (@$header) { |
338 |
|
# print $field->{name}, "\t=> ", $field->{body}, "\n"; |
339 |
|
#} |
340 |
|
|
341 |
|
for my $i (0..$#$header) { |
342 |
|
print $header->field_name ($i), "\t=> ", $header->field_body ($i), "\n"; |
343 |
} |
} |
344 |
|
|
345 |
|
|
346 |
## Make simple header |
## Make simple header |
347 |
|
|
348 |
|
use Message::Header; |
349 |
use Message::Field::Address; |
use Message::Field::Address; |
350 |
my $header = new Message::Header; |
my $header = new Message::Header; |
351 |
|
|