#!/usr/bin/env perl

use strict;
use warnings;

use Fuse;

my $priv_data = 'PRIVDAT';

Fuse::main (
    debug       => 1,
    init        => sub { return $priv_data },
    mountpoint  => 'mnt',
    getattr     => sub {
        Fuse::fuse_get_context();
        return qw[0 0 0040700 1 0 0 0 0 0 0 0 4096 0]
    },
);

##</code><code>##

$ fuse_init_unref.pl | grep private
          'private' => 'PRIVDAT'
          'private' => 2,
          'private' => 0
          'private' => ' => ',
          'private' => 0,
          'private' => [
          'private' => undef,
          'private' => undef,
          'private' => undef,
          'private' => '',