File Coverage

blib/lib/Object/Tap.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	5	6	83.3
condition	2	2	100.0
subroutine	7	7	100.0
pod			n/a
total	43	45	95.5

use 5.006;
use strict;
use warnings;

package Object::Tap;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.102';

use Role::Commons ();
use Role::Commons::Tap ();

sub import
{
	shift;
	my ($r, $opts) = Role::Commons::->parse_arguments(DummyArgument => @_);
	my @packages = ref $opts->{package}
		? @{ $opts->{package} }
		: ($opts->{package}|| scalar caller);

	delete $r->{DummyArgument};
	$r = { tap => undef } unless keys %$r;

	for my $pkg (@packages)
	{
		for my $meth (keys %$r)
		{
			if ($meth eq 'tap')
			{
				Role::Commons::->import('Tap', -into => $pkg);
			}
			else
			{
				no strict 'refs';
				*{"$pkg\::$meth"} = \&Role::Commons::Tap::tap;
			}
		}
	}
}

1;