Extend Yancy controller to add a modified by field

gistfile1.txt

package MyApp::Controller::ModifiedBy;
use Mojo::Base 'Yancy::Controller::Yancy';

sub _add_modified_by {
    my ( $c ) = @_;
    $c->req->param( modified_by => $c->current_uid );
    if ( my $item = $c->req->json ) {
        $item->{ modified_by } = $c->current_uid;
    }
}

sub create {
    my ( $c ) = @_;
    _add_modified_by( $c );
    return $c->SUPER::create;
}

sub set {
    my ( $c ) = @_;
    _add_modified_by( $c );
    return $c->SUPER::set;
}