Commit | Line | Data |
---|---|---|
d71da6a4 | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More; | |
4 | ||
5 | use Function::Parameters (); | |
6 | ||
7 | BEGIN { Function::Parameters::import_into __PACKAGE__; } | |
8 | ||
9 | ok fun ($x) { $x }->(1); | |
10 | ||
11 | BEGIN { Function::Parameters::import_into 'Cu::Ba', 'gorn'; } | |
12 | ||
13 | { | |
14 | package Cu::Ba; | |
15 | ||
16 | gorn wooden ($gorn) { !$gorn } | |
17 | } | |
18 | ||
19 | ok Cu::Ba::wooden; | |
20 | ||
21 | done_testing; |