use strict;
use warnings FATAL => qw(all);
use Test::More tests => 1;

BEGIN {
	package Wah;
	$INC{'Wah.pm'} = __FILE__;
	sub import {
		my $caller = caller;
		::is($caller, "Foo");
	}
}

BEGIN { *main::Foo:: }

package Foo;
use Wah;