update Net::FTP for install::ftp now that gen.pl handles "sub foobar { shift->some_method(@_) }"

1 files changed, 51 insertions, 72 deletions

diff --git a/fake_packages/Net/FTP.pm b/fake_packages/Net/FTP.pm
index 020bcda..6c53d7c 100644
--- a/fake_packages/Net/FTP.pm
+++ b/fake_packages/Net/FTP.pm
@@ -1,42 +1,43 @@
+
 package Net::FTP;
 our @ISA = qw();
 sub DESTROY() {}
-sub _ABOR() {}
-sub _ACCT() {}
-sub _ALLO() {}
-sub _APPE() {}
-sub _AUTH() {}
-sub _CDUP() {}
-sub _CWD() {}
-sub _DELE() {}
-sub _FEAT() {}
-sub _HELP() {}
-sub _LIST() {}
-sub _MDTM() {}
-sub _MKD() {}
-sub _MODE() {}
-sub _NLST() {}
-sub _NOOP() {}
-sub _PASS() {}
-sub _PASV() {}
-sub _PORT() {}
-sub _PWD() {}
-sub _QUIT() {}
-sub _REIN() {}
-sub _RESP() {}
-sub _REST() {}
-sub _RETR() {}
-sub _RMD() {}
-sub _RNFR() {}
-sub _RNTO() {}
-sub _SIZE() {}
-sub _SMNT() {}
-sub _STAT() {}
-sub _STOR() {}
-sub _STOU() {}
-sub _STRU() {}
-sub _SYST() {}
-sub _TYPE() {}
+sub _ABOR { my ($_o_response) = @_ }
+sub _ACCT { my ($_self, @_more_paras) = @_ }
+sub _ALLO { my ($_self, @_more_paras) = @_ }
+sub _APPE { my ($_self, @_more_paras) = @_ }
+sub _AUTH { my ($_self, @_more_paras) = @_ }
+sub _CDUP { my ($_o_response) = @_ }
+sub _CWD { my ($_self, @_more_paras) = @_ }
+sub _DELE { my ($_self, @_more_paras) = @_ }
+sub _FEAT { my ($_self, @_more_paras) = @_ }
+sub _HELP { my ($_self, @_more_paras) = @_ }
+sub _LIST { my ($_self, @_more_paras) = @_ }
+sub _MDTM { my ($_self, @_more_paras) = @_ }
+sub _MKD { my ($_self, @_more_paras) = @_ }
+sub _MODE { my ($_self, @_more_paras) = @_ }
+sub _NLST { my ($_self, @_more_paras) = @_ }
+sub _NOOP { my ($_o_response) = @_ }
+sub _PASS { my ($_self, @_more_paras) = @_ }
+sub _PASV { my ($_o_response) = @_ }
+sub _PORT { my ($_self, @_more_paras) = @_ }
+sub _PWD { my ($_self, @_more_paras) = @_ }
+sub _QUIT { my ($_o_response) = @_ }
+sub _REIN { my ($_self, @_more_paras) = @_ }
+sub _RESP { my ($_self, @_more_paras) = @_ }
+sub _REST { my ($_self, @_more_paras) = @_ }
+sub _RETR { my ($_self, @_more_paras) = @_ }
+sub _RMD { my ($_self, @_more_paras) = @_ }
+sub _RNFR { my ($_self, @_more_paras) = @_ }
+sub _RNTO { my ($_self, @_more_paras) = @_ }
+sub _SIZE { my ($_self, @_more_paras) = @_ }
+sub _SMNT { my ($_self, @_more_paras) = @_ }
+sub _STAT { my ($_self, @_more_paras) = @_ }
+sub _STOR { my ($_self, @_more_paras) = @_ }
+sub _STOU { my ($_self, @_more_paras) = @_ }
+sub _STRU { my ($_self, @_more_paras) = @_ }
+sub _SYST { my ($_self, @_more_paras) = @_ }
+sub _TYPE { my ($_self, @_more_paras) = @_ }
 sub _USER() {}
 sub _auth_id { my ($_ftp, $_auth, $_o_resp) = @_ }
 sub _data_cmd() {}
@@ -47,75 +48,53 @@ sub _store_cmd { my ($_ftp, $_cmd, $_local, $_o_remote) = @_ }
 sub abort() {}
 sub account() {}
 sub alloc() {}
-sub appe() {}
-sub append() {}
-sub ascii() {}
+sub appe { my ($_self, @_more_paras) = @_ }
+sub append { my ($_self, @_more_paras) = @_ }
+sub ascii { my ($_self, @_more_paras) = @_ }
 sub authorise() {}
 sub authorize() {}
-sub binary() {}
+sub binary { my ($_self, @_more_paras) = @_ }
 sub byte() {}
 sub cdup() {}
-sub cmd() {}
+sub cmd { my ($_self, @_more_paras) = @_ }
 sub command() {}
 sub cwd { my ($_ftp, $_o_dir) = @_ }
 sub debug_text() {}
 sub delete() {}
-sub dir() {}
+sub dir { my ($_self, @_more_paras) = @_ }
 sub ebcdic() {}
 sub feature { my ($_ftp, $_o_feat) = @_ }
 sub get { my ($_ftp, $_remote, $_local, $_o_where) = @_ }
 sub hash { my ($_h, $_o_b) = @_ }
 sub host() {}
-sub list() {}
+sub list { my ($_self, @_more_paras) = @_ }
 sub login { my ($_ftp, $_user, $_pass, $_o_acct) = @_ }
-sub ls() {}
+sub ls { my ($_self, @_more_paras) = @_ }
 sub lsl() {}
 sub mdtm() {}
 sub mkdir { my ($_ftp, $_dir, $_o_recurse) = @_ }
 sub new { my (@_more_paras) = @_ }
-sub nlst() {}
+sub nlst { my ($_self, @_more_paras) = @_ }
 sub parse_response() {}
 sub pasv() {}
 sub pasv_wait { my ($_ftp, $_o_non_pasv) = @_ }
 sub pasv_xfer { my ($_sftp, $_sfile, $_dftp, $_dfile, $_o_unique) = @_ }
 sub pasv_xfer_unique { my ($_sftp, $_sfile, $_dftp, $_o_dfile) = @_ }
 sub port { my ($_ftp, $_o_port) = @_ }
-sub put() {}
-sub put_unique() {}
+sub put { my ($_self, @_more_paras) = @_ }
+sub put_unique { my ($_self, @_more_paras) = @_ }
 sub pwd() {}
 sub quit() {}
 sub quot() {}
 sub rename { my ($_ftp, $_from, $_o_to) = @_ }
 sub response() {}
 sub restart { my ($_ftp, $_o_where) = @_ }
-sub retr() {}
+sub retr { my ($_self, @_more_paras) = @_ }
 sub rmdir { my ($_ftp, $_dir, $_o_recurse) = @_ }
 sub site() {}
 sub size { my ($_ftp, $_o_file) = @_ }
-sub stor() {}
-sub stou() {}
+sub stor { my ($_self, @_more_paras) = @_ }
+sub stou { my ($_self, @_more_paras) = @_ }
 sub supported() {}
 sub type() {}
 sub unique_name() {}
-
-package Net::FTP::A;
-our @ISA = qw();
-sub read { my ($_o_timeout) = @_ }
-sub write { my ($_o_timeout) = @_ }
-
-package Net::FTP::I;
-our @ISA = qw();
-sub read { my ($_o_timeout) = @_ }
-sub write { my ($_o_timeout) = @_ }
-
-package Net::FTP::dataconn;
-our @ISA = qw();
-sub _close() {}
-sub _select { my ($_data, $_timeout, $_o_do_read) = @_ }
-sub abort() {}
-sub bytes_read() {}
-sub can_read() {}
-sub can_write() {}
-sub close() {}
-sub cmd() {}
-sub reading() {}