view release on metacpan or  search on metacpan

t/01-basic.t  view on Meta::CPAN

plan tests => 9;

package My::Application;

use base 'Common::CLI';

package main;

{
    local @ARGV = qw( --help );

    my $app = My::Application->new(
        profile => {
            'optional' => [
                [ 'help', 'Display this help' ],
            ],
        },
    );

    {