Proof of concept: Lazy IO variable with AnyEvent, Variable::Magic, Data::Alias, and PadWalker

lazy_io_var.pl

#!/usr/bin/env perl

use v5.14;
use warnings;
use AnyEvent::HTTP "http_get";
use Variable::Magic qw(wizard cast dispell);
use Data::Alias "alias";
use PadWalker "peek_my";

sub get_page {
	my ($uri) = @_;
	alias my $var = ${ peek_my(1)->{q"$page"} };
	my $wiz;
	my $result = AE::cv;
	$wiz = wizard get => sub {
		dispell $var, $wiz;
		$var = $result->recv; };
	cast $var, $wiz;
	http_get $uri, sub {
		my ($body) = @_;
		$result->send($body); }; }

my $page;
$page = get_page("http://perl.org");
say "Before page load...";
say $page;
say "... After page load";