diff options
author | Chad Granum <exodist7@gmail.com> | 2016-01-23 18:07:45 -0800 |
---|---|---|
committer | Chad Granum <exodist7@gmail.com> | 2016-01-23 18:07:45 -0800 |
commit | 1bda85db2ae394a511656fb351bae21f44731f2f (patch) | |
tree | 4e3fb93101c6eee084cfebe9b9d0ba99cd4b34bd /t | |
parent | a84bf807e5b3f70e707c0678e969577ce68b4b7f (diff) |
Fix export_fail args
Diffstat (limited to 't')
-rw-r--r-- | t/export_fail.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/export_fail.t b/t/export_fail.t new file mode 100644 index 0000000..98383ce --- /dev/null +++ b/t/export_fail.t @@ -0,0 +1,28 @@ +use strict; +use warnings; + +use Test::More; + +my @got; +BEGIN { + $INC{'FAIL.pm'} = 1; + package FAIL; + + our @EXPORT = qw/foo $bar/; + our @EXPORT_FAIL = qw/foo $bar/; + + sub export_fail { + @got = @_; + return(); + } +} + +use Importer FAIL => qw/&foo $bar/; + +is_deeply( + \@got, + [qw/FAIL foo $bar/], + "'&' stripped from sub export" +); + +done_testing; |