国民宿舎はらぺこ 大浴場

またしても超基本 (^_^; 。

use strict;
use constant TEST => { foo => 'hoge', bar => 'huga' };
use Data::Dumper;

my $test = TEST;
$test->{baz} = 'hugogo';

my $var = TEST;
print Dumper($var);

出力結果は当然以下の通り。

$VAR1 = {
          'bar' => 'huga',
          'baz' => 'hugogo',
          'foo' => 'hoge'
        };

リファレンスの中身が変更されないことを保証するには、以下のように、毎回リファレンスを生成するようにサブルーチンを定義する必要がある。

sub TEST () { return { foo => 'hoge', bar => 'huga' } }

でもこれ、インライン化はされない。毎回 (動的に) リファレンスを生成する関数、だから。