Yet Another CPAN Grep

App-PerlTidy-Tk ( S/SZ/SZABGAB/App-PerlTidy-Tk-0.03.tar.gz, SZABGAB, 2020; MetaCPAN )

App-PerlTidy-Tk/lib/App/PerlTidy/Tk.pm ( view source; MetaCPAN )

e Browser::Open qw(open_browser open_browser_cmd);
use Cwd qw(getcwd);
use Cpanel::JSON::XS qw(encode_json decode_json);
use Data::Dumper qw(Dumper);
use File::HomeDir ();
use File::Spec ();
use Path:

s);
my $home = File::HomeDir->my_home;
my $config_file = File::Spec->catfile($home, '.perltidy-tk.json');
my @options = ('indent-columns', 'paren-tightness', 'brace-tightness', 'block-brace-tightness'

;
    usage() if $help;

    my $config = {};
    if (-e $config_file) {
        $config = decode_json(path($config_file)->slurp_utf8);
    }

    $self->{autotidy} = 0;

    $self->load_default_confi