The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MAUKE / Function-Parameters-1.0603_03 / t / foreign / MooseX-Method-Signatures / named_defaults.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

              
#!perl
use strict;
use warnings FATAL => 'all';
use Test::More;
{
    package Foo;
    use Function::Parameters qw(:strict);
    method new($class:) { bless {}, $class }
    method bar (:$baz = 42) { $baz }
}
my $o = Foo->new;
is($o->bar, 42);
is($o->bar(baz => 0xaffe), 0xaffe);
done_testing;