projects
/
p5sagit/Function-Parameters.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
dc540ac04ae59bbec54136ac084a100e8fcbacb0
[p5sagit/Function-Parameters.git]
/
t
/
foreign
/
Method-Signatures
/
at_underscore.t
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;