diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-12-31 13:16:08 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-01-01 04:44:28 +0000 |
| commit | 0e57b4e8a1ce68a98d334e524872cae16942643b (patch) | |
| tree | d00f607f14b8c1e04c134420b1a7ae66f5abb594 /lib/Exporter | |
| parent | 9de3b7c3f04d243540e2a381092bf0f918b7fe9e (diff) | |
| download | perl-0e57b4e8a1ce68a98d334e524872cae16942643b.tar.gz | |
Leaner exporter
Message-Id: <20011231181608.A29253@math.ohio-state.edu>
p4raw-id: //depot/perl@13996
Diffstat (limited to 'lib/Exporter')
| -rw-r--r-- | lib/Exporter/Heavy.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm index d1c4a10e51..3bdc4b4f20 100644 --- a/lib/Exporter/Heavy.pm +++ b/lib/Exporter/Heavy.pm @@ -215,11 +215,18 @@ sub _push_tags { } } - -sub require_version { +sub heavy_require_version { my($self, $wanted) = @_; my $pkg = ref $self || $self; return ${pkg}->VERSION($wanted); } +sub heavy_export_tags { + _push_tags((caller)[0], "EXPORT", \@_); +} + +sub heavy_export_ok_tags { + _push_tags((caller)[0], "EXPORT_OK", \@_); +} + 1; |