sub env :Global :Args(0) {
    use YAML;
    my ( $self, $c ) = @_;
    $c->response->content_type("text/plain");
    $c->response->body( YAML::Dump( $c->engine->env ) );
}