App-BCSSH

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "JSON" : "2",
            "Module::Find" : "0",
            "Module::Reader" : "0",
            "Module::Runtime" : "0",
            "Moo" : "0",
            "MooX::CaptainHook" : "0",
            "Package::Variant" : "0",
            "Pod::Perldoc" : "0",
            "Pod::Simple" : "0",
            "Safe::Isa" : "0",
            "Try::Tiny" : "0",
            "perl" : "5.008001",
            "strictures" : "1"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.002002"
}

META.yml  view on Meta::CPAN

  JSON: 2
  Module::Find: 0
  Module::Reader: 0
  Module::Runtime: 0
  Moo: 0
  MooX::CaptainHook: 0
  Package::Variant: 0
  Pod::Perldoc: 0
  Pod::Simple: 0
  Safe::Isa: 0
  Try::Tiny: 0
  perl: 5.008001
  strictures: 1
version: 0.002002

Makefile.PL  view on Meta::CPAN

  VERSION_FROM => 'lib/App/BCSSH.pm',

  EXE_FILES => [
    'bin/bcssh',
  ],

  PREREQ_PM => {
    'Moo'               => 0,
    'Package::Variant'  => 0,
    'Module::Runtime'   => 0,
    'Try::Tiny'         => 0,
    'Module::Find'      => 0,
    'File::Temp'        => 0.19,
    'IO::Select'        => 0,
    'IO::Socket::UNIX'  => 0,
    'strictures'        => 1,
    'Module::Reader'    => 0,
    'MooX::CaptainHook' => 0,
    'Pod::Simple'       => 0,
    'Pod::Perldoc'      => 0,
    'Browser::Open'     => 0,

lib/App/BCSSH.pm  view on Meta::CPAN

package App::BCSSH;
use strictures 1;

our $VERSION = '0.002002';
$VERSION = eval $VERSION;

use Try::Tiny;
use Module::Runtime qw(require_module);
use App::BCSSH::Util qw(command_to_package rc_dir);
use Module::Find ();

sub run_script { exit($_[0]->new(@ARGV)->run ? 0 : 1) }

sub new { bless { args => [@_[1..$#_]] }, $_[0] }

sub run {
    my $self = shift;

lib/App/BCSSH/Proxy.pm  view on Meta::CPAN

package App::BCSSH::Proxy;
use Moo;
use File::Temp ();
use IO::Select;
use IO::Socket::UNIX;
use App::BCSSH::Message;
use Try::Tiny;

has agent_path  => (is => 'ro');
has handlers    => (is => 'ro', default => sub { { } } );
has umask       => (is => 'ro', default => sub { 0077 } );
has _temp_dir   => (is => 'lazy', init_arg => undef);
sub _build__temp_dir {
    my $self = shift;
    my $old_mask = umask($self->umask);
    my $dir = File::Temp->newdir(TMPDIR => 1);
    umask($old_mask);