package futures;
use threads;

sub TIESCALAR {
    my( $class, $thread ) = @_;
    return bless [ $thread ], $class;
}

sub STORE {
    die "Futures cannot be assigned to";
}

sub FETCH {
    my $self = shift;
    my $r = $self->[0]->join;
    return $r;
}

sub new {
    my( $class, $code, @args ) = @_;
    my $thread = &async( $code, @args );
    tie my $future, 'futures', $thread;
    return $future;
}

1;