tomcha/ref_allow.pl

## ref_allow.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my $allow = {1 => ['a', 'b', 'c'], 2 => ['d', 'e', 'f']};

say $allow->{2}->[0];   #OK
say $allow{2}[0];       #エラー(use strictはずすと通る)
say $allow->{2}[0];     #OK
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use feature 'say';

	use DDP { deparse => 1 };

	my $allow = {1 => ['a', 'b', 'c'], 2 => ['d', 'e', 'f']};

	say $allow->{2}->[0]; #OK
	say $allow{2}[0]; #エラー(use strictはずすと通る)
	say $allow->{2}[0]; #OK