Commit | Line | Data |
---|---|---|
98e6239b | 1 | #!perl |
2 | use strict; | |
3 | use warnings FATAL => 'all'; | |
4 | ||
5 | use Test::More; | |
6 | ||
7 | { | |
8 | package Foo; | |
9 | use Function::Parameters qw(:strict); | |
10 | ||
11 | fun foo { return @_ } | |
12 | method bar { return @_ } | |
13 | } | |
14 | ||
15 | is_deeply [Foo::foo()], []; | |
16 | is_deeply [Foo::foo(23, 42)], [23, 42]; | |
17 | is_deeply [Foo->bar()], []; | |
18 | is_deeply [Foo->bar(23, 42)], [23, 42]; | |
19 | ||
20 | done_testing; |