view release on metacpan or  search on metacpan

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

use Moo;
my $have_pty;
BEGIN { eval {require IO::Pty::Easy; $have_pty = 1} }

with 'App::BCSSH::Handler';

has destination => (
    is => 'ro',
    default => sub {
        -d && return $_
            for ("$ENV{HOME}/Desktop", "$ENV{HOME}/desktop", $ENV{HOME});
    },
);
has scp => (
    is => 'ro',
    default => sub { 'scp' },
);

sub handle {
    my ($self, $send, $args) = @_;
    my $files = $args->{files};