File Coverage

blib/lib/MooX/Keyword/Chain.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	34	35	97.1

package MooX::Keyword::Chain;
use 5.006; use strict; use warnings;
our $VERSION = '1.01';
use Moo; our %CHAINS;
use MooX::Keyword {
	chain => {
		builder => sub {
			my ($moo, $name, $chain, $cb) = @_;
			$moo->has($name, is => 'rw') if ! $CHAINS{$name}++;
			$moo->sub($chain, $cb);
			$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__