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