dancer multi method dispatch-ish thing

dancer_multi.pl

sub multi ($$) {
  my $route_templates  = shift;
  my $route_definition = shift;

  foreach my $type (keys %$route_templates) {
    foreach my $route ( keys %$route_definition) {
      my $action = sub{ $route_templates->{$type}->( $route_definition->{ $route } ) }; 
      Dancer::App->current->registry->universal_add( $type
                                                   , $route
                                                   , $action
                                                   )
    }
  }
}

multi { get  => sub{ template data => {data => shift->()}}
      , ajax => sub{ to_json shift->()}
      },
      { '/'              => sub{{ hello => 'docs go here' }}
      , '/:user'         => sub{{ user  => USER }}
      , '/:user/content' => sub{{ content => USER->content_groups}}
      };