gistfile1.pl

sub foo {
  my ( $self, $c, @args ) = @_;
  $c->model('Bar')->do_something(
    @args,
    { on_error  => sub { $c->forward('error') },
      on_sucess => sub { $c->forward('do_something') }
    }
  );
}