bridges.pl

#!/usr/bin/env perl
use Mojolicious::Lite;

my $r = app->routes;
$r->get('/')->to(cb => sub {
  my $self = shift;
  $self->render(text => 'test');
});

my $b = $r->bridge('/#arg1/#arg2')->to(cb => sub {
  warn "In first bridge";
  return 1;
});

$b->bridge('/#branch/')->to(cb => sub {
  # do something here
  warn "In second bridge";
  return 1;
})->get->to(cb => sub {
  my ($self) = @_;
  $self->render(text => 'Branch: ' . $self->stash('branch'));
});

$b->bridge('/#branch/*dir_name')->to(cb => sub {
  warn "In third bridge";
  return 1;
})->get->to(cb => sub {
  my $self = shift;
  $self->render(text => 'Branch: ' . $self->stash('branch') . '<br />' . 'Dir name: ' . $self->stash('dir_name'));
});

app->start;