相关疑难解决方法(0)

我有以下Perl代码,但我无法理解它的作用.

use constant ANIMAL => 'rabbit'; 
if ($self->{+ANIMAL}) {
    # Do something here
}

+常数之前的符号ANIMAL是什么意思？