1package File::Spec::AmigaOS;
2
3use strict;
4require File::Spec::Unix;
5
6our $VERSION = '3.88';
7$VERSION =~ tr/_//d;
8
9our @ISA = qw(File::Spec::Unix);
10
11=head1 NAME
12
13File::Spec::AmigaOS - File::Spec for AmigaOS
14
15=head1 SYNOPSIS
16
17 require File::Spec::AmigaOS; # Done automatically by File::Spec
18                              # if needed
19
20=head1 DESCRIPTION
21
22Methods for manipulating file specifications.
23
24=head1 METHODS
25
26=over 2
27
28=item tmpdir
29
30Returns $ENV{TMPDIR} or if that is unset, "/t".
31
32=cut
33
34my $tmpdir;
35sub tmpdir {
36  return $tmpdir if defined $tmpdir;
37  $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/t" );
38}
39
40=item file_name_is_absolute
41
42Returns true if there's a colon in the file name,
43or if it begins with a slash.
44
45=cut
46
47sub file_name_is_absolute {
48  my ($self, $file) = @_;
49
50  # Not 100% robust as a "/" must not preceded a ":"
51  # but this cannot happen in a well formed path.
52  return $file =~ m{^/|:}s;
53}
54
55=back
56
57All the other methods are from L<File::Spec::Unix>.
58
59=cut
60
611;
62