3 use Test::More tests => 10;
5 use warnings FATAL => 'all';
8 use Function::Parameters;
10 method id_1() { $self }
28 ) ##AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
37 method mymap(@args) :(&@) {
40 push @res, $self->($_);
46 $self < 2 ? 1 : $self * fac_1 $self - 1
50 $self < 2 ? 1 : $self * fac_2 $self - 1
54 ok id_1(1), 'basic sanity';
55 ok id_2 1, 'simple prototype';
56 ok id_3(1), 'definition over multiple lines';
57 is add(2, 2), 4, '2 + 2 = 4';
58 is add(39, 3), 42, '39 + 3 = 42';
59 is_deeply [mymap { $_ * 2 } 2, 3, 5, 9], [4, 6, 10, 18], 'mymap works';
60 is fac_1(5), 120, 'fac_1';
61 is fac_2 6, 720, 'fac_2';
62 is method ($y) { $self . $y }->(method () { $self + 1 }->(3), method () { $self * 2 }->(1)), '42', 'anonyfun';