######## foo.pl ############
#!/usr/bin/perl
use strict;
use warnings;

MyApp->import( 'run' );
run() unless caller();

package MyApp;
BEGIN {
    use Exporter 'import';
    our @EXPORT_OK = qw(run mysub);
}

sub run {
    my $result = mysub();
    print "$result\n";
}

sub mysub {
    return "mysub called";
}

########## foo.t #############
#!/usr/bin/perl
use strict;
use warnings;
use Test::Simple tests => 1;

require 'foo.pl';
MyApp->import(qw(mysub));

ok ( mysub() =~ 'mysub' , '&mysub successfully imported' );