Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Perl
Branch: releases
Pull request Compare This branch is 1 commit ahead, 1 commit behind master.

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
lib/Dancer/Plugin
t
xt/release
AUTHOR_PLEDGE
Build.PL
CONTRIBUTORS
Changes
INSTALL
LICENSE
MANIFEST
META.json
META.yml
README
README.mkdn
SIGNATURE

README.mkdn

NAME

Dancer::Plugin::Chain - Chained actions for Dancer

VERSION

version 0.1.0

SYNOPSIS

use Dancer;
use Dancer::Plugin::Chain;

my $country = chain '/country/:country' => sub {
    # silly example. Typically much more work would 
    # go on in here
    var 'site' => param('country');
};

my $event = chain '/event/:event' => sub {
    var 'event' => param('event');
};

# will match /country/usa/event/yapc
get chain $country, $event, '/schedule' => sub {
    return sprintf "schedule of %s in %s\n", map { var $_ } 
                   qw/ event site /;
};

my $continent = chain '/continent/:continent' => sub {
    var 'site' => param('continent');
};

my $continent_event = chain $continent, $event;

# will match /continent/europe/event/yapc
get chain $continent_event, '/schedule' => sub {
    return sprintf "schedule of %s in %s\n", map { var $_ } qw/ event site /;
};

# will match /continent/asia/country/japan/event/yapc
# and will do special munging in-between!

get chain $continent, 
        sub { var temp => var 'site' },
        $country, 
        sub {
            var 'site' => join ', ', map { var $_ } qw/ site temp /
        },
        $event, 
        '/schedule' 
            => sub {
                return sprintf "schedule of %s in %s\n", map { var $_ } 
                            qw/ event site /;
        };

DESCRIPTION

Implementation of Catalyst-like chained routes.

The plugin exports a single keyword, chain, which creates the chained routes.

KNOWN CAVEATS

The plugin does not support prefix yet, and only support string-based urls (so no regexes).

EXPORTED FUNCTIONS

chain @chain_items, $coderef

Create a chain out of the items provided, and assign it the final action coderef.

Each chain item can be a string representing a path segment, a previously defined chain or an anonymous function. The chain's final path and action will be the aggregate of its parts.

For example, the final route declaration of the SYNOPSIS,

get chain $continent, 
        sub { var temp => var 'site' },
        $country, 
        sub {
            var 'site' => join ', ', map { var $_ } qw/ site temp /
        },
        $event, 
        '/schedule' 
            => sub {
                return sprintf "schedule of %s in %s\n", map { var $_ } 
                            qw/ event site /;
        };

would be is equivalent to

get '/continent/:continent/country/:country/event/:event/schedule' => sub {
    var 'site' => param('continent');
    var temp => var 'site';
    var 'site' => param('country');
    var 'site' => join ', ', map { var $_ } qw/ site temp /
    var 'event' => param('event');

    return sprintf "schedule of %s in %s\n", map { var $_ } 
                    qw/ event site /;
}

In scalar context, chain returns its underlying object. In list context, it returns a route / action pair of values (). That's how it can work transparently with get, post and friends.

# returns the object, that can be used to forge longer chains.
my $foo_chain = chain '/foo', sub { ... };

# returns the pair that makes 'get' happy
get chain $foo_chain;

SEE ALSO

AUTHOR

Yanick Champoux yanick@babyl.dyndns.org endorse

COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Yanick Champoux.

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

Something went wrong with that request. Please try again.