diff options
Diffstat (limited to 'lib/Exporter/Lexical.pm')
| -rw-r--r-- | lib/Exporter/Lexical.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Exporter/Lexical.pm b/lib/Exporter/Lexical.pm index 8eaf1a2..56b0843 100644 --- a/lib/Exporter/Lexical.pm +++ b/lib/Exporter/Lexical.pm @@ -16,6 +16,8 @@ XSLoader::load( sub import { my $package = shift; + my %opts = @_; + my $caller = caller; my $import = sub { @@ -23,7 +25,7 @@ sub import { no strict 'refs'; \%{ $caller . '::' }; }; - my @exports = @{ $caller_stash->{EXPORT} }; + my @exports = @{ $opts{'-exports'} }; my %exports = map { $_ => \&{ $caller_stash->{$_} } } @exports; for my $export (keys %exports) { |