diff options
| -rw-r--r-- | fake_packages/Net/FTP.pm | 123 |
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() {} |