view release on metacpan or  search on metacpan

lib/DynGig/RCE/Client.pm  view on Meta::CPAN

=cut
sub new
{
    my ( $class, %config ) = @_;
    my %done;
    my %client = 
    (
        prog => File::Spec->rel2abs( $0 ),
        host => Sys::Hostname::hostname(),
        user => scalar getpwuid $<,
    );

    for my $server ( keys %config )
    {
        my $config = $config{$server};
        my $nozip = delete $config->{nozip};

        next if $done{ $config->{buffer} };

        my %param = (