package Foo;
use Drogo::Dispatch( import_drogo_methods => 1 );
use strict;
use Foo::bar;

sub index :Index
{
    my $self = shift;

    $self->print('howdy friend');
}

sub beaver :Action { shift->print('unicorns') }

sub waffle :ActionMatch
{
    my $self = shift;
    $self->print(join('/', $self->post_args));
}

sub error        { shift->status(404) }
sub bad_dispatch { shift->error       }

sub waffles :ActionRegex('har/(.*)/roop')
{
    my $self = shift;
    my ($a) = $self->post_args;
    $self->print($a);
}

1;