Select Code to Download

# delays determination of a scalar's value until needed

package Tie::Scalar::Once;
...
}

1;

use Tie::Scalar::Once;

delay $x => sub { sqrt 2 };
...
# ...

if ($you_need_to) { print $x }