view release on metacpan or  search on metacpan

bin/workflow-lint  view on Meta::CPAN

#----------------------------------------------------------------------
# FIX MODE
#----------------------------------------------------------------------

elsif ($cmd eq 'fix') {

    # fix_file returns: ($workflow_hashref, $diagnostics_arrayref)
    my ($wf, $diags) = $lint->fix_file($file);

    if ($write) {
        # Write updated workflow back to disk
        $lint->{engine}->save_workflow($file, $wf);
        print "Applied fixes and wrote updated workflow to $file\n";
    }
    else {
        print "Fixes applied (not written). Use --write to save.\n";
        print App::Workflow::Lint::Formatter->format($format, $diags);
    }

    exit 0;
}

#----------------------------------------------------------------------