/usr/share/perl5/Object/AUTHORITY.pm is in librole-commons-perl 0.104-1.
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 | use 5.006;
use strict;
use warnings;
package Object::AUTHORITY;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION = '0.104';
use Role::Commons ();
use Role::Commons::Authority ();
sub import
{
shift;
my (undef, $opts) = Role::Commons::->parse_arguments(Authority => @_);
my @packages = ref $opts->{package}
? @{ $opts->{package} }
: ($opts->{package}|| scalar caller);
Role::Commons::->import('Authority', -into => $_) for @packages;
}
*AUTHORITY = Role::Commons::Authority::->can('AUTHORITY');
1;
|