Current File : //kunden/usr/share/doc/perl-namespace-clean/t/lib/FunctionWipeout.pm

package FunctionWipeout;
use warnings;
use strict;

use ExporterTest qw( foo qux $foo );

sub bar { foo() }

use namespace::clean -except => [qw( qux )];

sub baz { bar() }

1;