diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-10 17:21:17 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-10 17:21:17 -0400 |
| commit | aa3f08493d04303e253459eeb8182d8352984ace (patch) | |
| tree | 224ef2737939349d370e994673cc559b07d5d4d7 /lib | |
| parent | 4fcfb4266551771b302eb4d4a3fcf40c7bffada8 (diff) | |
| download | exporter-lexical-aa3f08493d04303e253459eeb8182d8352984ace.tar.gz exporter-lexical-aa3f08493d04303e253459eeb8182d8352984ace.zip | |
allow getting functions to export from other places
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Exporter/Lexical.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/Exporter/Lexical.pm b/lib/Exporter/Lexical.pm index 48e4d72..5714dca 100644 --- a/lib/Exporter/Lexical.pm +++ b/lib/Exporter/Lexical.pm @@ -77,8 +77,14 @@ sub build_exporter { no strict 'refs'; \%{ $caller . '::' }; }; - my @exports = @{ $opts->{'-exports'} }; - my %exports = map { $_ => \&{ $caller_stash->{$_} } } @exports; + my %exports; + if (ref($opts->{'-exports'}) eq 'ARRAY') { + %exports = map { $_ => \&{ $caller_stash->{$_} } } + @{ $opts->{'-exports'} }; + } + elsif (ref($opts->{'-exports'}) eq 'HASH') { + %exports = %{ $opts->{'-exports'} }; + } for my $export (keys %exports) { lexical_import($export, $exports{$export}); |