Где константы perl заменяются на их значения?

Question

Я пытался use constant значений в Perl и наткнулся на следующее странное поведение:

#!/usr/bin/perl 
use strict; 
use warnings; 

use Data::Dumper; 

use constant { 
    a => "b" 
}; 

my $c = { a => a }; 
my %d; 
$d{a} = a; 

print Dumper($c); 
print Dumper(\%d); 

Выведет

$VAR1 = { 
      'a' => 'b' 
     }; 
$VAR1 = { 
      'a' => 'b' 
     }; 

Константа a была заменена на правой стороне выражения $d{a} = a и a => a, но не с левой стороны.

Я знаю, что константы реализованы с использованием inlinable подлодки (documented here), и что имена суб оценить их имена, если они не предопределенное (documented here), но я не вижу причин, почему в моем примере a оценивает один раз до значения и один раз на имя в той же строке кода, особенно в присваивании хэша. a => a может быть следствием =>, переводящего левый сайт в виде строки, если он начинается с буквы.

Sidenote: Добавление круглых скобок, чтобы сделать суб-вызов явным дают ожидаемый результат:

# ... 
my $c = { a() => a }; # or my $c = { a, a }; 
my %d; 
$d{a()} = a; 
# .... 

Выход:

$VAR1 = { 
      'b' => 'b' 
     }; 
$VAR1 = { 
      'b' => 'b' 
     }; 

(все примеры протестирован с Perl 5.18)

Answer 1

Концом страницы constant, по адресу CAVEATS, имеет ответ

У вас могут возникнуть проблемы, если вы используете константы в контексте, который автоматически цитирует открытые слова (как это верно для любого вызова подпрограммы). Например, вы не можете сказать $hash{CONSTANT}, потому что CONSTANT будет интерпретироваться как строка.

Затем происходит с раствором вы нашли

Использования $hash{CONSTANT()} или $hash{+CONSTANT} для предотвращения bareword квотирования механизма с ног в.

Тогда заклинания это для хэш, а

Аналогичным образом, поскольку оператор => приводит к немедленному выходу из левого края, вы должны сказать CONSTANT() => 'value' (или просто использовать запятую вместо большой стрелки) вместо CONSTANT => 'value'.