Fix when( scalar ... ) bug
[perl.git] / ext / Cwd / lib / File / Spec / Functions.pm
1 package File::Spec::Functions;
2
3 use File::Spec;
4 use strict;
5
6 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
7
8 $VERSION = '3.30';
9 $VERSION = eval $VERSION;
10
11 require Exporter;
12
13 @ISA = qw(Exporter);
14
15 @EXPORT = qw(
16         canonpath
17         catdir
18         catfile
19         curdir
20         rootdir
21         updir
22         no_upwards
23         file_name_is_absolute
24         path
25 );
26
27 @EXPORT_OK = qw(
28         devnull
29         tmpdir
30         splitpath
31         splitdir
32         catpath
33         abs2rel
34         rel2abs
35         case_tolerant
36 );
37
38 %EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
39
40 foreach my $meth (@EXPORT, @EXPORT_OK) {
41     my $sub = File::Spec->can($meth);
42     no strict 'refs';
43     *{$meth} = sub {&$sub('File::Spec', @_)};
44 }
45
46
47 1;
48 __END__
49
50 =head1 NAME
51
52 File::Spec::Functions - portably perform operations on file names
53
54 =head1 SYNOPSIS
55
56         use File::Spec::Functions;
57         $x = catfile('a','b');
58
59 =head1 DESCRIPTION
60
61 This module exports convenience functions for all of the class methods
62 provided by File::Spec.
63
64 For a reference of available functions, please consult L<File::Spec::Unix>,
65 which contains the entire set, and which is inherited by the modules for
66 other platforms. For further information, please see L<File::Spec::Mac>,
67 L<File::Spec::OS2>, L<File::Spec::Win32>, or L<File::Spec::VMS>.
68
69 =head2 Exports
70
71 The following functions are exported by default.
72
73         canonpath
74         catdir
75         catfile
76         curdir
77         rootdir
78         updir
79         no_upwards
80         file_name_is_absolute
81         path
82
83
84 The following functions are exported only by request.
85
86         devnull
87         tmpdir
88         splitpath
89         splitdir
90         catpath
91         abs2rel
92         rel2abs
93         case_tolerant
94
95 All the functions may be imported using the C<:ALL> tag.
96
97 =head1 COPYRIGHT
98
99 Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
100
101 This program is free software; you can redistribute it and/or modify
102 it under the same terms as Perl itself.
103
104 =head1 SEE ALSO
105
106 File::Spec, File::Spec::Unix, File::Spec::Mac, File::Spec::OS2,
107 File::Spec::Win32, File::Spec::VMS, ExtUtils::MakeMaker
108
109 =cut
110