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

our $AUTHORITY = 'http://example.net/';

package main;

use Test::More tests => 3;
use UNIVERSAL::AUTHORITY;

is(
	Local::MyTest->AUTHORITY,
	'http://example.net/',
	'test package has correct authority',
	);

is(
	'UNIVERSAL::AUTHORITY'->AUTHORITY,
	'cpan:TOBYINK',
	'UNIVERSAL::AUTHORITY has correct authority',
	);

SKIP: {
	skip "need Moose 2.02", 1
		unless eval 'use Moose 2.02; 1;';
	skip "Moose seems to have stopped defining an authority", 1
		unless defined $Moose::AUTHORITY;
		
	ok(
		defined Moose->AUTHORITY,
		'Moose has an authority',
		);
}