File Coverage

blib/lib/Role/Commons/Tap.pm

Criterion	Covered	Total	%
statement	31	39	79.4
branch	4	14	28.5
condition	1	3	33.3
subroutine	8	8	100.0
pod	1	1	100.0
total	45	65	69.2

use 5.008;
use strict;
use warnings;

package Role::Commons::Tap;

use Carp qw[croak];

BEGIN {
	use Moo::Role;
	$Role::Commons::Tap::AUTHORITY = 'cpan:TOBYINK';
	$Role::Commons::Tap::VERSION   = '0.103';
}

our $setup_for_class = sub {
	my ($role, $package, %args) = @_;
	return 0;
};

sub tap
{
	my $self = shift;
	my %flags;

	PARAM: while (@_)
	{
		my $next = shift;

		if (ref($next) eq 'CODE' or not ref $next)
		{
			my $args = ref($_[0]) eq 'ARRAY' ? shift : [];
			my $code = ref $next ? $next : sub { $self->$next(@_) };

			if ($flags{ EVAL })
			{
				local $_ = $self;
				eval { $code->(@$args) }
			}
			else
			{
				local $_ = $self;
				do { $code->(@$args) }
			}
			next PARAM;
		}

		if (ref($next) eq 'SCALAR')
		{
			if ($$next =~ m{^(no_?)?(.+)$}i)
			{
				$flags{ uc $2 } = $1 ? 0 : 1;
				next PARAM;
			}
		}

		croak qq/Unsupported parameter to tap: $next/;
	}

	return $self;
}

1;

__END__