Yet Another CPAN Grep

Tree-Shell ( P/PE/PERLANCAR/Tree-Shell-0.001.tar.gz, PERLANCAR, 2020; MetaCPAN )

Tree-Shell/lib/Tree/Shell.pm ( view source; MetaCPAN )

rbose',
        handler=>sub {$opts->{verbose}=1},
    },
    json    => {
        getopt=>'json',
        handler=>sub {$opts->{fmt}='json-pretty'},
    },
};

sub _help_cmd {
    require Perinci::Cm

name},
        meta         => $args{meta},
        common_opts  => $common_opts,
        per_arg_json => 1,
    );
    print $res->[2];
}

sub _run_cmd {
    require Perinci::Result::Format;
    requ

argv},
            meta => $args{meta},
            check_required_args => 0,
            per_arg_json => 1,
            common_opts => $common_opts,
        );
        if ($res->[0] == 501) {

Tree-Shell ( P/PE/PERLANCAR/Tree-Shell-0.001.tar.gz, PERLANCAR, 2020; MetaCPAN )

Tree-Shell/lib/Tree/Shell/Commands.pm ( view source; MetaCPAN )

tr*'],
        pos        => 0,
        completion => $complete_path,
    },
);

my @drivers = qw(json yaml org);

$SPEC{loadobj} = {
    v => 1.1,
    summary => 'Load tree object',
    description =

y $fs;
    if ($driver eq 'json') {
        return [501, "Not implemented"];
        #require Data::CSel::WrapStruct;
        #require JSON::MaybeXS;
        #my $json = JSON::MaybeXS->new(allow_nonre

f=>1, canonical=>1);
        #my $data = $json->decode(File::Slurper::Dash::read_text($source));
        #$tree = Data::CSel::WrapStruct::wrap_struct($data);
    } elsif ($driver eq 'yaml') {