The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    POE::Devel::ProcAlike - Exposing the guts of POE via FUSE

SYNOPSIS
            #!/usr/bin/perl
            use strict; use warnings;
            use POE::Devel::ProcAlike;
            use POE;

            # let it do the work!
            POE::Devel::ProcAlike->spawn();

            # create our own "fake" session
            POE::Session->spawn(
                    'inline_states' => {
                            '_start'        => sub {
                                    $_[KERNEL]->alias_set( 'foo' );
                                    $_[KERNEL]->yield( 'timer' );
                            },
                            'timer'         => sub {
                                    $_[KERNEL]->delay_set( 'timer' => 60 );
                            }
                    },
                    'heap'          => {
                            'fakedata'      => 1,
                            'oomph'         => 'haha',
                    },
            );

            # run the kernel!
            POE::Kernel->run();

ABSTRACT
    Using this module will let you expose the guts of a running POE program
    to the filesystem via FUSE. This also includes a lot of debugging
    information about the running perl process :)

DESCRIPTION
    Really, all you have to do is load the module and call it's spawn()
    method:

            use POE::Devel::ProcAlike;
            POE::Devel::ProcAlike->spawn( ... );

    This method will return failure on errors or return success. Normally
    you don't need to pass any arguments to it, but if you want to do zany
    things, you can! Note: the spawn() method will construct a singleton.

    This constructor accepts either a hashref or a hash, valid options are:

   fuseopts
    This is a hashref of options to pass to the underlying FUSE component,
    POE::Component::Fuse's spawn() method. Useful to change the default
    mountpoint, for example. Setting the mountpoint is a MUST if you have
    multiple scripts running and want to use this.

    The default fuseopts is to enable: umount, mkdir, rmdir, and mountpoint
    of "/tmp/poefuse_$$". You cannot override those options: alias,
    vfilesys, and session.

    The default is: undef

   vfilesys
    This is a Filesys::Virtual::Async subclass object you can provide to
    expose your own data in the filesystem. It will be mounted under /misc
    in the directory.

    The default is: undef

  Commands
    There is only a few commands you can use, because this module does
    nothing except export the data to the filesystem.

    This module uses a static alias: "poe-devel-procalike" so you can always
    interact with it anytime it is loaded.

   shutdown
    Tells this module to shut down the underlying FUSE session and terminate
    itself.

            $_[KERNEL]->post( 'poe-devel-procalike', 'shutdown' );

   register
    ( ONLY for PoCo module authors! )

    Registers your Filesys::Virtual::Async subclass with ProcAlike so you
    can expose your data in the filesystem.

    Note: You MUST call() this event so ProcAlike will get the proper
    caller() info to determine mountpath. Furthermore, ProcAlike only allows
    one registration per module!

            $_[KERNEL]->call( 'poe-devel-procalike', 'register', $myfsv );

   unregister
    ( ONLY for PoCo module authors! )

    Removes your registered object from the filesystem.

    Note: You MUST call() this event so ProcAlike will get the proper
    caller() info to determine mountpath.

            $_[KERNEL]->call( 'poe-devel-procalike', 'unregister' );

  Notes for PoCo module authors
    You can expose your own data in any format you want! The way to do this
    is to create your own Filesys::Virtual::Async object and give it to
    ProcAlike. Here's how I would do the logic:

            my $ses = $_[KERNEL]->alias_resolve( 'poe-devel-procalike' );
            if ( $ses ) {
                    require My::FsV; # a subclass of Filesys::Virtual::Async
                    my $fsv = My::FsV->new( ... );
                    if ( ! $_[KERNEL]->call( $ses, 'register', $fsv ) ) {
                            warn "unable to register!";
                    }
            }

    Keep in mind that the alias is static, and you should be executing this
    code in the "preferred" package. What I mean by this is that ProcAlike
    will take the info from caller() and determine the mountpoint from it.
    Here's an example:

            POE::Component::SimpleHTTP does a register, it will be mounted in:
            /modules/poe-component-simplehttp

            My::Module::SubClass does a register, it will be mounted in:
            /modules/my-module-subclass

    Furthermore, ProcAlike only allows each package to register once, so you
    have to figure out how to create a singleton and use that if your PoCo
    has been spawned N times. The reasoning behind this is to have a
    "uniform" filesystem that would be valid across multiple invocations. If
    we allowed module authors to register any name, then we would end up
    with possible collisions and wacky schemes like "$pkg$ses->ID" as the
    name...

    Also, here's a tip: you don't have to implement the entire
    Filesys::Virtual::Async API because FUSE doesn't use them all! The ones
    you would have to do is: rmtree, scandir, move, copy, load, readdir,
    rmdir, mkdir, rename, mknod, unlink, chmod, truncate, chown, utime,
    stat, write, open. To save even more time, you can subclass the
    Filesys::Virtual::Async::inMemory module and set readonly to true. Then
    you would have to subclass only those methods: readdir, stat, open.

  TODO
    *   tunable parameters

        Various people in #poe@magnet suggested having a system where we
        could do "sysctl-like" stuff with this filesystem. I'm not entirely
        sure what we can "tune" in regards to POE but if you have any ideas
        please feel free to drop them my way and we'll see what we can do :)

    *   pipe support

        Again, people suggested the idea of "telnetting" into the filesystem
        via a pipe. The interface could be something like PoCo-DebugShell,
        and we could expand it to accept zany commands :)

    *   module memory usage

        I talked with some people, and this problem is much more complex
        than you would think it is. If somebody could let me know of a
        snippet that measures this, I would love to include it in the perl
        output!

    *   POE::API::Peek crashes

        There are some functions that causes segfaults for me! They are:
        session_memory_size, signals_watched_by_session, and
        kernel_memory_size. If the situation improves, I would love to
        reinstate them in ProcAlike and expose the data, so please let me
        know if it does.

    *   more stats

        More stats are always welcome! If you have any ideas, please drop me
        a line.

EXPORT
    None.

SEE ALSO
    POE

    Fuse

    Filesys::Virtual::Async

SUPPORT
    You can find documentation for this module with the perldoc command.

        perldoc POE::Devel::ProcAlike

  Websites
    *   AnnoCPAN: Annotated CPAN documentation

        <http://annocpan.org/dist/POE-Devel-ProcAlike>

    *   CPAN Ratings

        <http://cpanratings.perl.org/d/POE-Devel-ProcAlike>

    *   RT: CPAN's request tracker

        <http://rt.cpan.org/NoAuth/Bugs.html?Dist=POE-Devel-ProcAlike>

    *   Search CPAN

        <http://search.cpan.org/dist/POE-Devel-ProcAlike>

  Bugs
    Please report any bugs or feature requests to "bug-poe-devel-procalike
    at rt.cpan.org", or through the web interface at
    <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=POE-Devel-ProcAlike>. I
    will be notified, and then you'll automatically be notified of progress
    on your bug as I make changes.

AUTHOR
    Apocalypse <apocal@cpan.org>

    Props goes to xantus who got me motivated to write this :)

COPYRIGHT AND LICENSE
    Copyright 2009 by Apocalypse

    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.