File Coverage

lib/CLI/Framework/Command/List.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	26	53.8

package CLI::Framework::Command::List;
use base qw( CLI::Framework::Command::Meta );

use strict;
use warnings;

our $VERSION = 0.01;

#-------

sub usage_text {
    q{
    list: print a concise list of the names of all commands available to the application
    }
}

sub run {
    my ($self, $opts, @args) = @_;

    my $app = $self->get_app(); # metacommand is app-aware

    # If interactive, exclude commands that do not apply in interactive mode...
    my @command_set = $app->get_interactivity_mode()
        ? $app->get_interactive_commands()
        : keys %{ $app->command_map_hashref() };

    my $result = join(', ', map { lc $_ } @command_set ) . "\n";
    return $result;
}

#-------
1;

__END__