package Test::Test1;
use warnings;
use strict;

use constant TESTCONST => 123;

use base 'Exporter';
our @EXPORT = qw/TESTCONST/;

sub import {
	warnings->import;
	strict->import;
	__PACKAGE__->export_to_level(1, @_);
	return;
}

##</code><code>##

our @EXPORT = qw/ ... /;
sub import {
	my $callerpackage = caller;
	for my $export (@EXPORT) {
		no strict 'refs';
		*{$callerpackage."::".$export} = \&{$export};
	}
}