I am using Mail::Sender to send an email message and have used it a few times before but have hard coded the email address into the script. Now I am using Config::ApacheFormat (which I have also used before) for a config file. I know how to get an email address from the config file and use it in the code. However, I have a place where I am using an eval block to send an email. I have to assume (since I don't know better) that the email address is being interpolated. I think the way I want to fix it is to make that variable not be eval'd inside of the eval block. The corresponding lines in the config file are:

AdminEmail    "Server Admin" <admin@server.com>
AdminEmailCC  "Tech Guys" <techs@server.com>
[download]

The corresponding code is (I know I am using 2 different methods to get the config lines, but I am just doing that to illustrate the flexibility I have with the code):

  my $to = join(" ", $config->get("AdminEmail"));
  eval {
    (new Mail::Sender)->MailMsg(
    {
      smtp => "mail.server.com",
      from => "\"Postmaster\" <postmaster\@server.com>",
      to   => $to,
      cc   => $config->get("AdminEmailCC"),
      subject => "Email Subject",
      msg  => "Email Body"
    })
      or die "Error Sending Mail: $Mail::Sender::Error";
  };
[download]

And the corresponding error message is: Odd number of elements in anonymous hash at my_script.pl line 454.

Can someone please explain to me what is happening here and how I can fix it?

Update: Thanks to merlyn and chromatic for setting me straight. It appears that in an eval block, the string is being called into an anonymous hash with an odd nuber of elements since the method is being called in a list context. The corrected section of code forces the string into a scalar context:

 to   => scalar join(" ", $config->get("AdminEmail")),
 cc   => scalar join(" ", $config->get("AdminEmailCC")),
[download]