NOTE
This project has been moved over to github -- http://github.com/jtarchie/sinatra-on-perl/tree/master.
Description
This framework is from the original Ruby web framework Sinatra. I have been working on porting to Perl mainly as a learning exercise, but I think I have something solid enough that might beneficial to others. An example can be found below, but a more complex example can be found in the svn/trunk.
Example
#!/usr/bin/env perl
require 'lib/sinatra.pl';
use strict;
get('', {}, sub{
return 'Hello World';
});
get(':name', {}, sub{
my $r = shift;
return 'Hello, ' . $r->params->{name};
});