call umount on DESTROY, support for optional 'invalidate' code ref which
[Fuse-DBI] / examples / webgui.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4 use blib;
5 use Fuse::DBI;
6
7 my $sql_filenames = q{
8         select
9                 oid as id,
10                 namespace||'/'||name||' ['||oid||']' as filename,
11                 length(template) as size,
12                 iseditable as writable
13         from template ;
14 };
15
16 my $sql_read = q{
17         select template
18                 from template
19                 where oid = ?;
20 };
21
22 my $sql_update = q{
23         update template
24                 set template = ?        
25                 where oid = ?;
26 };
27
28 my $mnt = Fuse::DBI->mount({
29         filenames => $sql_filenames,
30         read => $sql_read,
31         update => $sql_update,
32         dsn => 'DBI:Pg:dbname=webgui',
33         mount => '/mnt2',
34 });
35
36 print "Press enter to exit...";
37 my $foo = <STDIN>;
38
39 $mnt->umount;