view release on metacpan or  search on metacpan

lib/Fuse/TM.pm  view on Meta::CPAN

    Fuse::main(mountpoint=>$mountpt,
	       debug=>$self->{debug}>1?1:0,
	       getattr=>sub { return $self->tm_getattr(@_); },
	       getdir=>sub { return $self->tm_getdir(@_); },
	       read=>sub { return $self->tm_read(@_); },
	       readlink=>sub { return $self->tm_readlink(@_); },
	       $self->{rw}?
	       ( write=>sub { return $self->tm_write(@_);},
		 release=>sub { return $self->tm_release(@_); },
		 chmod=>sub { return $self->tm_dummy(@_); },
		 chown=>sub { return $self->tm_dummy(@_); },
		 utime=>sub { return $self->tm_dummy(@_); },
		 truncate=>sub { return $self->tm_truncate(@_); },
		 rename=>sub { return $self->tm_rename(@_); },
		 mkdir=>sub { return $self->tm_mkdir(@_); },
		 symlink=>sub { return $self->tm_symlink(@_); },
		 unlink=>sub { return $self->tm_unlink(@_); },
		 rmdir=>sub { return $self->tm_rmdir(@_); },
		 mknod=>sub { return $self->tm_mknod(@_); }
		 ):()
	       );

lib/Fuse/TM.pm  view on Meta::CPAN

	    return 0;
	}
	return -EPERM() if (@rest!=1); 
	
	return -EBUSY() if (!$self->remove_rename($localname,undef));
	return 0;
    }
    return -EPERM();
}

# for utime, chmod, chown and other, nonimplemented but commonly used functions
sub tm_dummy
{
    my ($self)=@_;
    Carp::croak("invalid object argument\n") if (!ref($self) || !$self->isa(__PACKAGE__));

    $self->debug("dummy called with args ".Dumper(\@_)."\n");
    return 0;
}

=pod