use v5.40;

use Variable::Magic qw( cast wizard );

my $wiz = wizard(
   get  => sub {
      say sprintf 'getter called for %X', refaddr( $_[0] );
      ${ $_[0] } = int( rand( 100 ) );
   },
);

my $var;
say sprintf '`$var` is %X', refaddr( \$var );

cast $var, $wiz;

for ( 1 .. 4 ) {
   say "Loop: $_";
   say "`\$var` has value $var";
}

##</code><code>##

`$var` is 5F5668128E20
Loop: 1
getter called for 5F5668128E20
`$var` has value 22
Loop: 2
getter called for 5F5668128E20
`$var` has value 62
Loop: 3
getter called for 5F5668128E20
`$var` has value 44
Loop: 4
getter called for 5F5668128E20
`$var` has value 70