+ return 1;
+}
+
+#$SIG{'INT'} = sub {
+# print STDERR "umount called by SIG INT\n";
+# umount;
+#};
+
+sub DESTROY {
+ my $self = shift;
+ print STDERR "umount called by DESTROY\n";
+ $self->umount;
+}
+
+=head2 fuse_module_loaded
+
+Checks if C<fuse> module is loaded in kernel.
+
+ die "no fuse module loaded in kernel"
+ unless (Fuse::DBI::fuse_module_loaded);
+
+This function in called by L<mount>, but might be useful alone also.
+
+=cut
+
+sub fuse_module_loaded {
+ my $lsmod = `lsmod`;
+ die "can't start lsmod: $!" unless ($lsmod);
+ if ($lsmod =~ m/fuse/s) {