求救 $entity->mime_type的问题

求救 $entity->mime_type的问题
foreach (@parts){
print $_->mime_type,"\n";
}
my @text =grep $_->mime_type eq 'text/plain',@parts;

my @attachments =grep $_->mime_type ne 'text/plain',@parts;


z执行时候提示下面的：
Can't call method "mime_type" on an undefined value

但是 如果邮件里没有附件的时候都是正常的 有了附件 就显示上面的话 不知道
各位能不能帮我解决下啊 我都要哭了