view release on metacpan or  search on metacpan

script/renlikewd  view on Meta::CPAN

    },
};
sub app {
    require Cwd;
    require File::Util::Test;

    my %args = @_;
    my $file = $args{file} or return [400, "Please specify file to rename"];
    my $parents = $args{parents} // 0;

    return [404, "File '$file' does not exist"]
        unless File::Util::Test::file_exists($file);
    my $ext = $file =~ /.(\.\w+)$/ ? $1 : "";

    my $cwd = Cwd::getcwd();
    return [412, "Please don't run me in root directory as it's meaningless"]
        if $cwd eq '/';

    my $p = 0;
    my $curname;
    while (1) {