Untitled

# This fails because the array value in slot 0 is undef - see $Email_Address1 below:
my $from = (Email::Address->parse($message->header('From')))[0]->address;


$Email_Address1 = [
                    undef,
                    'beer@oslofest.org',
                    '',
                    'beer@oslofest.org',
                    [
                      \do { my $v = 'hunter@missoula.org' },
                      0
                    ]
                  ];
bless( $Email_Address1, 'Email::Address' );
$ARRAY1 = [ "Caught exception in MojoMojo::View::Email->process \"Can't call method \"a".
        "ddress\" on an undefined value at /usr/local/share/perl/5.10.0/Email/Send".
        "/SMTP.pm line 27.\n at /usr/local/share/perl/5.10.0/Catalyst/Action.pm li".
        "ne 59\"" ];