Source

p5-p5u / lib / P5U / Command / Commands.pm

package P5U::Command::Commands;

BEGIN {
	$P5U::Command::Commands::AUTHORITY = 'cpan:TOBYINK';
	$P5U::Command::Commands::VERSION   = '0.007';
};

use 5.010;
use strict;
use utf8;
use P5U-command;

require App::Cmd::Command::commands;
our @ISA;
unshift @ISA, 'App::Cmd::Command::commands';

BEGIN {
	$P5U::Command::Commands::AUTHORITY = 'cpan:TOBYINK';
	$P5U::Command::Commands::VERSION   = '0.007';
};

use constant {
	abstract    => q[list installed p5u commands],
};

sub sort_commands
{
	my ($self, @commands) = @_;
	my $float = qr/^(?:help|commands|aliases|about)$/;
	my @head = sort grep { $_ =~ $float } @commands;
	my @tail = sort grep { $_ !~ $float } @commands;
	return (\@head, \@tail);
}
1;