The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Object::AUTHORITY;

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

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;