in reply to Re^2: Mail::Message->get('received') failing
in thread Mail::Message->get('received') failing

No, you need to post a trimmed down relevant sample that shows the same behavior. Maybe you've got a missing letter in a variable name and aren't using strict so it's not getting caught. Maybe you've neglected to append a newline to a print and you're suffering from buffering. Maybe you've called something that's causing a real problem down inside Mail::Message. No one here can diagnose that because you haven't shown the code that's not working. You've given no details, just a vague "something resembling this snippet of code in some context at some time isn't working for me".

Not that it's inconceivable that there's a problem with the module in question, but no one's going to be able to divine what might be going wrong without any actual real code exhibiting the behavior in question to paw over and figure out what might be going wrong.

Update: Something like this (which by the way works fine for me; sample output after the __END__): 

#!/usr/local/bin/perl5.10.0
use strict;
use warnings;
use feature ':5.10';

use Mail::Box::Manager;

my $mgr = Mail::Box::Manager->new();

my $folder = $mgr->open( "$ENV{HOME}/Mail/outgoing" );

my $msg = $folder->message( 0 );

for my $header ( qw( subject from received bogus ) ) {
  say "Msg $header: ", $msg->get( $header ) // 'UNDEF';
}

exit 0;

__END__
Msg subject: testing comp
Msg from: Mike Fletcher <REDACTED>
Msg received: UNDEF
Msg bogus: UNDEF

[download]

That's actual code that someone can grab, tweak the path to a mailbox for their environment, and attempt to duplicate your problem. It shows exactly what is being done when things don't behave (or are behaving as it does in this case since that message has no "Received" headers). Ideally you'd even include a sample message/mbox file which includes a "Received" header but the same code doesn't print it out (but that might be getting greedy :).

The cake is a lie.
The cake is a lie.
The cake is a lie.

Replies are listed 'Best First'.
Re^4: Mail::Message->get('received') failing
by gw1500se (Beadle) on Nov 12, 2008 at 19:23 UTC
    Sorry, its just that I've been so frustrated by this and my code is so simple I am virtually certain the problem is in the Mail::Message code somewhere. 
    #!/usr/bin/perl -w

use strict;
use Mail::Message;
use Data::Dumper;

my $msg=Mail::Message->read(\*STDIN);
my $head=Mail::Message::Head->new();

my $from=$msg->from;
my @to=$msg->to;
my @subject=$msg->subject;
my @recv=$head->get('received');

print(Dumper(@recv),"\n");

    [download]
[reply]
[d/l]

      You construct a brand new Mail::Message::Head instance which has no connection to the existing message in $msg that you've read in. It's not surprising that it contains no headers. Perhaps if you try my $head = $msg->head() it'll be more matching your expectations?

      (See, I told you showing actual code would help. :)

      The cake is a lie.
      The cake is a lie.
      The cake is a lie.

[reply]
[d/l]
[select]
        I guess I have to stop assuming purported working examples really work. I was puzzled by that too but I thought the 'new' function internally to the package already had what it needed from the 'read'. I'll give it a try.
[reply]
        Yep. That did it. I'm giving up on googled examples. I guess when I have a question, I'll ask instead. Thanks again.
[reply]

In Section Seekers of Perl Wisdom