gistfile1.pl

#!perl

package TestApp;
use Mojolicious::Lite;
get '/one/:foo' => [ foo => [qw/bar barfly/] ] => sub { shift->render_text('hi') };
get '/two/:foo' => [ foo => qr[bar|barfly] ] => sub { shift->render_text('hi') };

package main;

use Test::More tests => 8;
use Test::Mojo;

my $t = Test::Mojo->new("TestApp");
$t->get_ok("/one/bar")->status_is('200');
$t->get_ok("/one/barfly")->status_is('200');
$t->get_ok("/two/bar")->status_is('200');
$t->get_ok("/two/barfly")->status_is('200');

1;