Commit | Line | Data |
---|---|---|
63915d26 | 1 | #!perl |
2 | ||
3 | use Test::More tests => 3; | |
4 | ||
5 | use warnings FATAL => 'all'; | |
6 | use strict; | |
7 | ||
8 | use Function::Parameters { | |
9 | fun => { | |
10 | default_arguments => 1, | |
11 | }, | |
12 | }; | |
13 | ||
14 | { | |
15 | my ($d0, $d1, $d2, $d3); | |
16 | my $default = 'aaa'; | |
17 | ||
18 | fun padness($x = $default++) { | |
19 | return $x; | |
20 | } | |
21 | ||
22 | is padness('unrelated'), 'unrelated'; | |
23 | is &padness(), 'aaa'; | |
24 | is padness, 'aab'; | |
25 | } |