/usr/share/perl5/Object/Tap.pm is in librole-commons-perl 0.101-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | package Object::Tap;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION = '0.101';
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;
|