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;