document Moose fallback for ::Info
[p5sagit/Function-Parameters.git] / t / elsewhere.t
CommitLineData
d71da6a4 1use strict;
2use warnings;
3use Test::More;
4
db81d362 5{
6 package Wrapper;
7 use Function::Parameters ();
8 sub shazam { Function::Parameters->import(@_); }
9}
d71da6a4 10
db81d362 11BEGIN { Wrapper::shazam; }
d71da6a4 12
13ok 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
22ok Cu::Ba::wooden;
23
24done_testing;