t/foreign/MooseX-Method-Signatures/sigs-optional.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4 use Test::More tests => 4;
   5
   6 {
   7     package Optional;
   8     use Function::Parameters qw(:strict);
   9     method foo ($class: $arg = undef) {
  10         $arg;
  11     }
  12
  13     method bar ($class: $hr = {}) {
  14         ++$hr->{bar};
  15     }
  16 }
  17
  18 is( Optional->foo(), undef);
  19 is( Optional->foo(1), 1);
  20 is( Optional->bar(), 1);
  21 is( Optional->bar({bar=>1}), 2);