view release on metacpan or  search on metacpan

bin/perlbrew-clean-site-lib  view on Meta::CPAN

            },
        },
    },
};
sub clean_site_lib {
    require File::Path;

    my %args = @_;

    my $perl = App::PerlbrewUtils::_find_perl_by_name($args{perl})
        or return [404, "No such installed perl '$args{perl}'"];

    for my $dir (glob "$perl->{dir}/lib/site_perl/*") {
        File::Path::remove_tree($dir);
    }
    [200];
}

Perinci::CmdLine::Any->new(
    url => '/main/clean_site_lib',
)->run;