3 use warnings FATAL => 'all';
4 use Test::More tests => 4;
8 use Function::Parameters qw(:strict);
9 method foo ($class: $arg = undef) {
13 method bar ($class: $hr = {}) {
18 is( Optional->foo(), undef);
19 is( Optional->foo(1), 1);
20 is( Optional->bar(), 1);
21 is( Optional->bar({bar=>1}), 2);