28 |
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); |
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); |
29 |
|
|
30 |
our @EXPORT = (); |
our @EXPORT = (); |
31 |
our $VERSION = '0.07_3'; |
our $VERSION = '0.07'; |
32 |
|
|
33 |
sub AUTOLOAD { |
sub AUTOLOAD { |
34 |
# This AUTOLOAD is used to 'autoload' constants from the constant() |
# This AUTOLOAD is used to 'autoload' constants from the constant() |
79 |
rename link chmod chown truncate utime open read write statfs |
rename link chmod chown truncate utime open read write statfs |
80 |
flush release fsync setxattr getxattr listxattr removexattr); |
flush release fsync setxattr getxattr listxattr removexattr); |
81 |
my @subs = map {undef} @names; |
my @subs = map {undef} @names; |
82 |
my @validOpts = qw(ro allow_other default_permissions fsname use_ino); |
my @validOpts = qw(ro allow_other default_permissions fsname use_ino nonempty); |
83 |
my $tmp = 0; |
my $tmp = 0; |
84 |
my %mapping = map { $_ => $tmp++ } @names; |
my %mapping = map { $_ => $tmp++ } @names; |
85 |
my %optmap = map { $_ => 1 } @validOpts; |
my %optmap = map { $_ => 1 } @validOpts; |