File Coverage

blib/lib/Petal/CodePerl/Expr/Alternate.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	44	46	95.6

use strict;
use warnings;

package Petal::CodePerl::Expr::Alternate;

use base qw( Code::Perl::Expr::Base );

use Class::MethodMaker (
	get_set => [qw( -java Paths )]
);

sub eval
{
	my $self = shift;

	my @paths = @{$self->getPaths};

	my $last = pop @paths;

	foreach my $path (@paths)
	{
		my $res = eval {$path->eval};
		next if $@;
		return $res;
	}

	return $last->eval;
}

sub perl
{
	my $self = shift;

	my @paths = @{$self->getPaths};

	my $last = pop @paths;

	my $last_perl = $last->perl;
	if (not @paths)
	{
		return $last_perl;
	}
	else
	{
		my @evals = map {
			my $path_perl = $_->perl;
			qq{eval{\$v = $path_perl}; last unless \$@}
		} @paths;
		my $evals = join(";", @evals);

		return qq{do{my \$v;for (1){$evals;\$v = $last_perl} \$v}}
	}
}

1;