Cside/use_scalar_lazy.pl

## use_scalar_lazy.pl
use Scalar::Lazy qw/lazy/;

# 遅延評価
my $var1 = lazy { 1 };
print $var1;  #=> 1

# シングルトン化することもできる
my $var2 = lazy { $something_heavy->() } 'init';
print $var2;
print $var2;  # $something_heavy->() が一度しか実行されない
	use Scalar::Lazy qw/lazy/;

	# 遅延評価
	my $var1 = lazy { 1 };
	print $var1; #=> 1

	# シングルトン化することもできる
	my $var2 = lazy { $something_heavy->() } 'init';
	print $var2;
	print $var2; # $something_heavy->() が一度しか実行されない