conditions.pl

package Test;
use base 'Mojolicious';

sub startup {
    my $mojo = shift;
    my $r = $mojo->routes;

    $r->add_condition(
        boolean => sub {
            my ($r, $c, $captures, $pattern) = @_;
            return $captures if $pattern;
            return;
        }
    );

    my $root = $r->route;
    $root->to('cb' => sub { shift->render(text => 'No condition!') });
    $root->over(boolean => 1)->to('cb' => sub { shift->render(text => 'True!') });
    $root->over(boolean => 0)->to('cb' => sub { shift->render(text => 'False!') });
};