rewrite to generate actual ops, not source code
[p5sagit/Function-Parameters.git] / t / elsewhere.t
1 use strict;
2 use warnings;
3 use Test::More;
4
5 {
6         package Wrapper;
7         use Function::Parameters ();
8         sub shazam { Function::Parameters->import(@_); }
9 }
10
11 BEGIN { Wrapper::shazam; }
12
13 ok fun ($x) { $x }->(1);
14
15 {
16         package Cu::Ba;
17         BEGIN { Wrapper::shazam 'gorn'; }
18
19         gorn wooden ($gorn) { !$gorn }
20 }
21
22 ok Cu::Ba::wooden;
23
24 done_testing;