Expose any Perl object over the web. An interesting little snippet (using Continuity)

webapp_continuity.pl

#!/usr/bin/env perl

use 5.012;
use warnings;
use autobox::Core;
use Continuity;

Continuity->new( port => 9292 )->loop;

sub main {
    my $request = shift;
    my $expose = [];     # exposed Array object, per user!
    
    while (1) {
        my ($func, @attrs) = $request->uri->as_string->split('/')->tail;
        $request->print( $expose->$func(@attrs) )->next;
    }
}


# to run:  perl webapp_continuity.pl

# http://localhost:9292/push/1  -> 1
# http://localhost:9292/push/2  -> 12
# http://localhost:9292/push/3  -> 123

# http://localhost:9292/flatten -> 123

# http://localhost:9292/pop     -> 3
# http://localhost:9292/shift   -> 1

##
# see:  "Expose any Ruby object over the web. An interesting little snippet"
#       http://news.ycombinator.com/item?id=1910120
#       https://gist.github.com/675667
# also:
#       https://gist.github.com/703620  (Plack version)