view release on metacpan or  search on metacpan

TODO.md  view on Meta::CPAN

                                  || $opt{provides}  // 1

            (3) ownsfile  .....  =~ /^(.+\/)?$pkgstr$/
                                 if $pkgstr =~ /.+\.so$/
                                  || $opt{owns_file} // 1

            (4) satisfies .....      ->( $pkgstr )
                                 if $pkgstr =~ /.+\.so$/
                                  || $opt{satisfies} // 0

    - ~~don't use existing framework if its seriously a blocker~~ start
      working on foundation for functionality across core offering of apps
      (starting with read-only workflow agnostic utility scripts)

- [ ] Figure out how to support async+blocking with same API
    - something like
      [`wants?array` in perlfunc](https://perldoc.perl.org/perlfunc#wantarray)
      but for return values after blocking or a future/promize
      - a specialized role, possibly one that applies itself based on some
        critreia like the existence of an event loop in the caller, `%ENV`, or
        an instance field

lib/BS/Common.pm  view on Meta::CPAN

            $out .= "\n"
        }

        $out .=
          $ENV{DEBUG} && $ENV{DEBUG} == 2
          ? join "\n",
          map { ( my $line = $_ ) =~ s/^\t/  /; "  $line" } split /\R/,
          Devel::StackTrace::WithLexicals->new(
            indent      => 1,
            skip_frames => 1
          )->as_string
          : "at $caller[1]:$caller[2]";

        say STDERR "$out\n";
        $out;
    }
}

method bsx : common ($cmd_aref, %args) {
    %args = ( in => undef, out => [], err => '' ) unless scalar keys %args;