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