File Coverage

blib/lib/MooX/Keyword/Chain.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	6	8	75.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	35	39	89.7

package MooX::Keyword::Chain;
use 5.006; use strict; use warnings;
our $VERSION = '0.01';
use Moo; our %CHAINS;
use MooX::Keyword {
	chain => {
		builder => sub {
			my ($moo, $name, $chain, $cb) = @_;
			do {
				$cb = $chain;
				$chain = "";
			} if ! $cb;
			$moo->has($name, is => 'rw') if ! $CHAINS{$name}++;
			$moo->around($name, sub {
				my ($orig, $self, @args) = @_;
				@args = $self->$orig(@args);
				@args = eval {
					$cb->($self, @args);
				};
				die "${chain}: $@" if ($@);
				return wantarray ? @args : shift @args;
			});
		}
	}
};

1;

__END__