File Coverage

blib/lib/Capture/Attribute/Return.pm

Criterion	Covered	Total	%
statement	20	34	58.8
branch	3	16	18.7
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	33	63	52.3

package Capture::Attribute::Return;

use 5.010;
use strict;

BEGIN {
	$Capture::Attribute::Return::AUTHORITY = 'cpan:TOBYINK';
	$Capture::Attribute::Return::VERSION   = '0.001';
}

use Any::Moose;

use overload
	'@{}' => '_ARRAY',
	'""'  => '_SCALAR',
	'${}' => '_SCALAR';

has wasarray => (
	is        => 'ro',
	isa       => 'Num|Undef',
	required  => 1,
	);

has value => (
	is        => 'ro',
	required  => 0,
	predicate => 'has_value',
	);

sub _ARRAY
{
	my ($self) = @_;
	return [] if $self->is_void;
	return $self->wasarray ? $self->value : [ $self->value ];
}

sub _SCALAR
{
	my ($self) = @_;
	return undef if $self->is_void;
	$self->wasarray ? do { my @a = @{$self->value}; scalar(@a) } : $self->value;
}

sub is_list
{
	my ($self) = @_;
	return 1 if $self->wasarray;
	return;
}

sub is_scalar
{
	my ($self) = @_;
	my $wasarray = $self->wasarray;
	return if $wasarray;
	return 1 if defined $wasarray;
	return;
}

sub is_void
{
	my ($self) = @_;
	return if defined $self->wasarray;
	return 1;
}

__PACKAGE__
__END__