summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 23:43:37 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 23:43:37 +0000
commitabfe20a98eb3bd11e50cb04f856beefcde9479df (patch)
tree64a1787290689bf88f51a46c0bc8c0877f37bbd0
parenta2a5d22cb85b02e652708f2cbbd98e023ba0af06 (diff)
downloadperl_checker-abfe20a98eb3bd11e50cb04f856beefcde9479df.tar
perl_checker-abfe20a98eb3bd11e50cb04f856beefcde9479df.tar.gz
perl_checker-abfe20a98eb3bd11e50cb04f856beefcde9479df.tar.bz2
perl_checker-abfe20a98eb3bd11e50cb04f856beefcde9479df.tar.xz
perl_checker-abfe20a98eb3bd11e50cb04f856beefcde9479df.zip
update Net::FTP for install::ftp now that gen.pl handles "sub foobar { shift->some_method(@_) }"
-rw-r--r--fake_packages/Net/FTP.pm123
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() {}