Commit | Line | Data |
---|---|---|
60682a8e | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More; | |
4 | ||
5 | use Function::Parameters 'f'; | |
6 | ||
7 | my $add = f ($x, $y) { $x + $y }; | |
8 | ||
9 | is $add->(2, 4), 6; | |
10 | ||
2a5e8ebe | 11 | ok !eval { Function::Parameters->import('g', 'h'); 1 }; |
12 | like $@, qr/ is not exported /; | |
13 | ||
14 | for my $kw ('', '42', 'A::B', 'a b') { | |
15 | ok !eval{ Function::Parameters->import($kw); 1 }; | |
16 | like $@, qr/valid identifier /; | |
17 | } | |
18 | ||
60682a8e | 19 | done_testing; |