#!/usr/bin/perl
use strict; use warnings;

# uncomment this to have debugging
#sub POE::Component::Fuse::DEBUG { 1 }

# loopback to our home directory!
use Filesys::Virtual::Async::Plain;
my $vfs = Filesys::Virtual::Async::Plain->new(
	'cwd'		=> '/',
	'root'		=> $ENV{'PWD'},
	'home_path'	=> '/',
);

# add other directory
my $procfs = Filesys::Virtual::Async::Plain->new(
	'cwd'		=> '/',
	'root'		=> '/proc',
	'home_path'	=> '/',
);

# fire up the dispatcher
use Filesys::Virtual::Async::Dispatcher;
my $dispatcher = Filesys::Virtual::Async::Dispatcher->new(
	'rootfs'	=> $vfs,
);
$dispatcher->mount( '/proc', $procfs );

# load FUSE goodness
use POE::Component::Fuse;
POE::Component::Fuse->spawn(
	'vfilesys'	=> $dispatcher,
	'umount'	=> 1,
);

print "Check us out at the default place: /tmp/poefuse\n";
print "In it you should see the contents of the directory you ran this script from.\n";
print "LOOPBACK MAGIC! :)\n";

# fire up POE
POE::Kernel->run();
exit;