File Coverage

blib/lib/Contextual/Call.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	12	12	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	58	58	100.0

## ----------------------------------------------------------------------------
#  Contextual::Call
# -----------------------------------------------------------------------------
# Mastering programmed by YAMASHINA Hio
#
# Copyright 2007 YAMASHINA Hio
# -----------------------------------------------------------------------------
# $Id$
# -----------------------------------------------------------------------------
package Contextual::Call;
use strict;
use warnings;
use base qw(Exporter);

our @EXPORT_OK = qw(ccall);
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

our $VERSION = '0.01';
1;

# -----------------------------------------------------------------------------
# my $result = ccall \⊂
#
sub ccall ($;$)
{
	my $wantarray;
	my $sub;

	@_ or die "ccall: argument required";
	if( UNIVERSAL::isa($_[0], 'CODE') )
	{
		$wantarray = (caller(1))[5];
		$sub       = shift;
	}else
	{
		$wantarray = shift;
		$sub       = shift;
	}

	Contextual::Call->new({
		context => $wantarray,
		sub     => $sub,
	});
}

# -----------------------------------------------------------------------------
# $pkg->new({ context => wantarray, sub => \&sub });
#
sub new
{
	my $pkg  = shift;
	my $opts = shift;

	my $wantarray = $opts->{context};
	my $sub       = $opts->{sub};
	my @result;

	if( $wantarray )
	{
		# list context.
		@result = $sub->(@_);
	}elsif( defined($wantarray) )
	{
		# scalar context.
		$result[0] = $sub->(@_);
	}else
	{
		# void context.
		$sub->(@_);
	}

	my $this = bless {}, __PACKAGE__;
	$this->{context} = $wantarray;
	$this->{result}  = \@result;

	$this;
}

# -----------------------------------------------------------------------------
# $cresult->result();
#
sub result
{
	my $this = shift;
	my $wantarray = $this->{context};
	if( $wantarray )
	{
		# list context.
		@{$this->{result}};
	}elsif( defined($wantarray) )
	{
		# scalar context.
		$this->{result}->[0];
	}else
	{
		# void context.
		return;
	}
}

# -----------------------------------------------------------------------------
# End of Module.
# -----------------------------------------------------------------------------
# -----------------------------------------------------------------------------
# End of File.
# -----------------------------------------------------------------------------
__END__