t/elsewhere.t

   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;