File Coverage

blib/lib/BGS/Future.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	1	2	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	4	4	100.0
total	46	50	92.0

package BGS::Future;

use strict;
use warnings;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(future);

our $VERSION = '0.11';

use overload '&{}' => sub { my $self = shift; sub { $self->join() } };

use BGS ();

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;

	my $self = BGS::_bgs_call($_[0]);

	bless $self, $class;
	return $self;
}


sub join {
	my $self = shift;
	if (exists $$self{result}) {
		return $$self{result};
	} else {
		BGS::bgs_wait($$self{vpid});
		return $$self{result};
	}
}


sub cancel {
	my $self = shift;
	BGS::bgs_break($$self{vpid});
}


sub future(&) {
	__PACKAGE__->new($_[0]);
}


1;


__END__