view release on metacpan or  search on metacpan

lib/SOAP/Transport/FTP.pm  view on Meta::CPAN

sub new {
    my $class = shift;
    return $class if ref $class;

    my(@arg_from, @method_from);
    while (@_) {
        $class->can($_[0])
            ? push(@method_from, shift() => shift)
            : push(@arg_from, shift)
    }
    my $self = bless {@arg_from} => $class;
    while (@method_from) {
        my($method, $param_ref) = splice(@method_from,0,2);
        $self->$method(ref $param_ref eq 'ARRAY' ? @$param_ref : $param_ref)
    }
    return $self;
}

sub send_receive {
    my($self, %parameters) = @_;
    my($envelope, $endpoint, $action) =