Commits

Toby Inkster committed 744410d

add AUTHORITY method everywhere

Comments (0)

Files changed (5)

 use utf8;
 
 use App::Cmd::Setup -app;
+use Object::AUTHORITY;
 
 BEGIN {
 	$P5U::AUTHORITY = 'cpan:TOBYINK';

lib/P5U/Command.pm

 use File::Temp qw<>;
 use JSON qw<>;
 use Path::Class qw<>;
+use Object::AUTHORITY;
 
 my %config;
 

lib/P5U/Command/Commands.pm

 package P5U::Command::Commands;
 
+BEGIN {
+	$P5U::Command::Commands::AUTHORITY = 'cpan:TOBYINK';
+	$P5U::Command::Commands::VERSION   = '0.001';
+};
+
 use 5.010;
 use strict;
 use utf8;
 use P5U-command;
 
 require App::Cmd::Command::commands;
-our @ISA = 'App::Cmd::Command::commands';
+our @ISA;
+unshift @ISA, 'App::Cmd::Command::commands';
 
 BEGIN {
 	$P5U::Command::Commands::AUTHORITY = 'cpan:TOBYINK';
 sub sort_commands
 {
 	my ($self, @commands) = @_;
-	my $float = qr/^(?:help|commands|aliases)$/;
+	my $float = qr/^(?:help|commands|aliases|about)$/;
 	my @head = sort grep { $_ =~ $float } @commands;
 	my @tail = sort grep { $_ !~ $float } @commands;
 	return (\@head, \@tail);

lib/P5U/Lib/TestPod.pm

 	$P5U::Command::TestPod::VERSION   = '0.001';
 };
 
+use Object::AUTHORITY;
 use Path::Class;
 use Path::Class::Rule;
 use Test::More;

lib/P5U/Lib/Version.pm

 use LWP::Simple qw< get >;
 use Module::Info;
 use Module::Runtime qw< module_notional_filename >;
+use Object::AUTHORITY;
 
 sub local_module_info
 {