app.pl

any['put','post'] => '/sources' => sub {
    my $self   = shift;
    my $schema = $self->schema;
    my $json = $self->req->json;
    my $source = $schema->resultset( 'Source' )->create( $json );
    if ( $source ) {
        $self->res->code( 200 );
        $self->render( json => { source_id => $source->id } );
    }
    else {
        $self->res->code( 422 );
        $self->render( json => { error => "Unable to create source." } );
    }
};