view release on metacpan or  search on metacpan

t/required.t  view on Meta::CPAN

    option(
        comment  => 'Query in a file',
        isa_name => 'ADQL in a file',
    );
}

my $form = My::Form->new;

subtest 'present' => sub {

    local @ARGV = qw( --file foo );

    my $optargs = $form->optargs;
    is(
        $optargs,
        array {
            item 'file';
            item hash {
                field comment  => 'Query in a file';
                field required => 1;
                field isa      => '--Str';