view release on metacpan or  search on metacpan

t/02toolkit/06Params.t  view on Meta::CPAN

  else {
    plan skip_all => 'Test irrelevant without a Type constraint library';
  }
  # use_ok 'Type::Params', qw( compile signature );
  use_ok 'TUI::toolkit::Params', qw( signature );
}

#
# Check that people doing silly things with *::Params get
#
subtest '/t/20-modules/Type-Params/badsigs.t' => sub {
  throws_ok {
    signature(
      pos => [
        Int, { optional => 1 },
        Int,
      ]
    )
  } qr{^Non-Optional parameter following Optional parameter},
      "Cannot follow an optional parameter with a required parameter";