rename-module.raku

use JSON::Fast;

sub MAIN(Str $meta6 = 'META6.json') {
    ## rename modules
    my Hash $meta = from-json($meta6.IO.slurp);
    my $module-updates = 0;
    my $script-updates = 0;

    for $meta<provides>.sort {
         my $old = .value;
         if .value ~~ s/\.pm[6?]$/.rakumod/ {
             $module-updates++;
             shell "git mv $old {.value}";
         }
    }

    if $module-updates {
        $meta6.IO.spurt: to-json($meta, :sorted-keys);
    }

    ## rename scripts
    if 'bin'.IO.e {
        for dir 'bin' {
            my $old = .Str;
            my $new = .Str;
            if $new ~~ s/\.p[l|6]$/.raku/ {
                $script-updates++;
                shell "git mv $old $new";
            }
         }
    }

    note "renamed $module-updates modules and $script-updates scripts";
}