diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | fake_packages/Net/FTP.pm | 124 |
2 files changed, 120 insertions, 6 deletions
@@ -1,3 +1,5 @@ +- update Net::FTP fake package for installer + Version 1.2.17 - 19 March 2012, by Thierry Vignaud - fix Glib fake package causing perl_checker to show bogus "too many diff --git a/fake_packages/Net/FTP.pm b/fake_packages/Net/FTP.pm index e01695f..020bcda 100644 --- a/fake_packages/Net/FTP.pm +++ b/fake_packages/Net/FTP.pm @@ -1,9 +1,121 @@ 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 _USER() {} +sub _auth_id { my ($_ftp, $_auth, $_o_resp) = @_ } +sub _data_cmd() {} +sub _dataconn() {} +sub _extract_path { my ($_ftp, $_o_path) = @_ } +sub _list_cmd() {} +sub _store_cmd { my ($_ftp, $_cmd, $_local, $_o_remote) = @_ } +sub abort() {} +sub account() {} +sub alloc() {} +sub appe() {} +sub append() {} +sub ascii() {} +sub authorise() {} +sub authorize() {} +sub binary() {} +sub byte() {} +sub cdup() {} +sub cmd() {} +sub command() {} +sub cwd { my ($_ftp, $_o_dir) = @_ } +sub debug_text() {} +sub delete() {} +sub dir() {} +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 login { my ($_ftp, $_user, $_pass, $_o_acct) = @_ } +sub ls() {} +sub lsl() {} +sub mdtm() {} +sub mkdir { my ($_ftp, $_dir, $_o_recurse) = @_ } +sub new { my (@_more_paras) = @_ } +sub nlst() {} +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 pwd() {} +sub quit() {} +sub quot() {} +sub rename { my ($_ftp, $_from, $_o_to) = @_ } +sub response() {} +sub restart { my ($_ftp, $_o_where) = @_ } +sub retr() {} +sub rmdir { my ($_ftp, $_dir, $_o_recurse) = @_ } +sub site() {} +sub size { my ($_ftp, $_o_file) = @_ } +sub stor() {} +sub stou() {} +sub supported() {} +sub type() {} +sub unique_name() {} -sub new {} +package Net::FTP::A; +our @ISA = qw(); +sub read { my ($_o_timeout) = @_ } +sub write { my ($_o_timeout) = @_ } -sub login {} -sub binary {} -sub cwd {} -sub retr {} -sub code {} +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() {} |