| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch