Re: learning by example; please explain what this code is doing?

Select or download this

http://localhost/script.cgi/=

Select or download this

GET qr{^/=$} => sub {
    print $q->header('text/html');
    print $q->h1('REST API Documentation');
    print $q->p('Here is a list of what you can do:');

Select or download this

my $regex = qr{^/=$};
my $coderef = sub {
...
    # etc.
};
GET( $regex, $coderef );

Select or download this

$code->();
exit;

Select or download this

GET qr{^/=/model/book/id/([\d-]+)$} => sub {
    my $id = $1;
    # etc.

Select or download this

http://localhost/script.cgi/=/model/book/id/10566

Select Code to Download