File Coverage

blib/lib/App/CLI/Command/Commands.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	21	23	91.3

package App::CLI::Command::Commands;

use strict;
use warnings;

use base qw/App::CLI::Command/;

=head1 NAME

App::CLI::Command::Commands - Print a list of commands for your app

=head1 SYNOPSIS

    package MyApp;
    use base qw(App::CLI App::CLI::Command);

    # Make your app get a list of commands
    use constant alias => (
        commands => '+App::CLI::Command::Commands',
    );

    1;

=head1 DESCRIPTION

Print a list of commands registered for your application;

=cut

sub run {
    my ($self) = shift;

    my ($longest) = sort { length($b) cmp length($a) } $self->app->commands;
    $longest = length $longest;

    foreach ( $self->app->commands ) {
        my $cmd        = $self->app->get_cmd($_);
        my @components = split /::/, ref $cmd;
        my $name       = lc pop @components;
        printf "    %${longest}s\n", $name;
    }
}

1;