From: Gurusamy Sarathy Date: Wed, 15 Sep 1999 05:17:27 +0000 (+0000) Subject: add :ALL export tag (from Chris Nandor ) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=817e423ab4dfba4afbe35ab9c8cdeb229ced90ff;p=p5sagit%2Fp5-mst-13.2.git add :ALL export tag (from Chris Nandor ) p4raw-id: //depot/perl@4163 --- diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm index ffc1199..140738f 100644 --- a/lib/File/Spec/Functions.pm +++ b/lib/File/Spec/Functions.pm @@ -3,7 +3,7 @@ package File::Spec::Functions; use File::Spec; use strict; -use vars qw(@ISA @EXPORT @EXPORT_OK); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); require Exporter; @@ -31,6 +31,8 @@ require Exporter; rel2abs ); +%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] ); + foreach my $meth (@EXPORT, @EXPORT_OK) { my $sub = File::Spec->can($meth); no strict 'refs'; @@ -85,6 +87,8 @@ The following functions are exported only by request. abs2rel rel2abs +All the functions may be imported using the C<:ALL> tag. + =head1 SEE ALSO File::Spec, File::Spec::Unix, File::Spec::Mac, File::Spec::OS2,