t/lib/FunctionWipeout.pm

   1 package FunctionWipeout;
   2 use warnings;
   3 use strict;
   4
   5 use ExporterTest qw( foo qux $foo );
   6
   7 sub bar { foo() }
   8
   9 use namespace::clean -except => [qw( qux )];
  10
  11 sub baz { bar() }
  12
  13 1;