Source

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

Full commit
Toby Inkster 885095f 

Toby Inkster 744410d 

Toby Inkster cb8d0ad 
Toby Inkster 744410d 

Toby Inkster 885095f 





Toby Inkster 744410d 

Toby Inkster 885095f 


Toby Inkster cb8d0ad 
Toby Inkster 885095f 








Toby Inkster 744410d 
Toby Inkster 885095f 



package P5U::Command::Commands;

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

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.003';
};

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;