From b22dcf2206b81f86848645b84fd23ddd6ffb9cc1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 13 Sep 2016 13:13:57 +0200 Subject: add Encode fake package --- fake_packages/Encode.pm | 179 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 179 insertions(+) create mode 100644 fake_packages/Encode.pm (limited to 'fake_packages/Encode.pm') diff --git a/fake_packages/Encode.pm b/fake_packages/Encode.pm new file mode 100644 index 0000000..cec28b8 --- /dev/null +++ b/fake_packages/Encode.pm @@ -0,0 +1,179 @@ + +package Encode; +our @ISA = qw(); +sub DIE_ON_ERR() {} +sub FB_CROAK() {} +sub FB_DEFAULT() {} +sub FB_HTMLCREF() {} +sub FB_PERLQQ() {} +sub FB_QUIET() {} +sub FB_WARN() {} +sub FB_XMLCREF() {} +sub HTMLCREF() {} +sub LEAVE_SRC() {} +sub PERLQQ() {} +sub RETURN_ON_ERR() {} +sub STOP_AT_PARTIAL() {} +sub WARN_ON_ERR() {} +sub XMLCREF() {} +sub _bytes_to_utf8 { my ($_sv, @_more_paras) = @_ } +sub _utf8_off { my ($_sv) = @_ } +sub _utf8_on { my ($_sv) = @_ } +sub _utf8_to_bytes { my ($_sv, @_more_paras) = @_ } +sub clone_encoding($) {} +sub decode($$;$) { my ($_name, $_octets, $_o_check) = @_ } +sub decode_utf8($;$) { my ($_octets, $_o_check) = @_ } +sub define_encoding() {} +sub encode($$;$) { my ($_name, $_string, $_o_check) = @_ } +sub encode_utf8($) { my ($_o_str) = @_ } +sub encodings() {} +sub find_encoding($;$) { my ($_name, $_o_skip_external) = @_ } +sub from_to($$$;$) { my ($_string, $_from, $_to, $_o_check) = @_ } +sub getEncoding { my ($_class, $_name, $_o_skip_external) = @_ } +sub is_utf8 { my ($_sv, $_o_check) = @_ } +sub perlio_ok() {} +sub predefine_encodings { my ($_undef, $_str, $_o_chk) = @_ } +sub resolve_alias($) {} + +package Encode::Alias; +our @ISA = qw(); +sub define_alias() {} +sub find_alias() {} +sub init_aliases() {} +sub undef_aliases() {} + +package Encode::CN::HZ; +our @ISA = qw(); +sub cat_decode { my ($_obj, $_undef, $_src, $_pos, $_trm, $_o_chk) = @_ } +sub decode { my ($_obj, $_str, $_o_chk) = @_ } +sub encode($$;$) { my ($_obj, $_str, $_o_chk) = @_ } +sub needs_lines() {} + +package Encode::Encoder; +our @ISA = qw(); +sub AUTOLOAD() {} +sub DESTROY() {} +sub bytes { my ($_self, $_o_encname) = @_ } +sub data { my ($_self, $_o_data) = @_ } +sub encoder() {} +sub encoding { my ($_self, $_o_encname) = @_ } +sub new { my ($_class, $_data, $_o_encname) = @_ } + +package Encode::Encoding; +our @ISA = qw(); +sub DEBUG() {} +sub DESTROY() {} +sub Define() {} +sub decode() {} +sub encode() {} +sub fromUnicode { my ($_self, @_more_paras) = @_ } +sub mime_name() {} +sub name { my ($_Name) = @_ } +sub needs_lines() {} +sub perlio_ok() {} +sub renew() {} +sub renewed() {} +sub toUnicode { my ($_self, @_more_paras) = @_ } + +package Encode::GSM0338; +our @ISA = qw(); +sub decode { my ($_obj, $_bytes, $_o_chk) = @_ } +sub encode($$;$) { my ($_obj, $_str, $_o_chk) = @_ } +sub needs_lines() {} +sub perlio_ok() {} + +package Encode::Guess; +our @ISA = qw(); +sub add_suspects() {} +sub decode($$;$) { my ($_obj, $_octet, $_o_chk) = @_ } +sub guess() {} +sub guess_encoding() {} +sub import() {} +sub needs_lines() {} +sub perlio_ok() {} +sub set_suspects() {} + +package Encode::JP::H2Z; +our @ISA = qw(); +sub h2z { my ($_o_keep_dakuten) = @_ } +sub z2h() {} + +package Encode::JP::JIS7; +our @ISA = qw(); +sub cat_decode { my ($_obj, $_undef, $_undef, $_pos, $_o_trm) = @_ } +sub decode($$;$) { my ($_obj, $_str, $_o_chk) = @_ } +sub encode($$;$) { my ($_obj, $_utf8, $_o_chk) = @_ } +sub euc_jis() {} +sub jis_euc() {} +sub needs_lines() {} + +package Encode::KR::2022_KR; +our @ISA = qw(); +sub decode { my ($_obj, $_str, $_o_chk) = @_ } +sub encode { my ($_obj, $_utf8, $_o_chk) = @_ } +sub euc_iso() {} +sub iso_euc() {} +sub needs_lines() {} +sub perlio_ok() {} + +package Encode::MIME::Header; +our @ISA = qw(); +sub _encode_b() {} +sub _encode_b_len { my ($_o_chunk) = @_ } +sub _encode_line { my ($_o, $_o_str) = @_ } +sub _encode_q { my ($_o_chunk) = @_ } +sub _encode_q_len { my ($_o_chunk) = @_ } +sub _fold_line { my ($_obj, $_o_line) = @_ } +sub decode($$;$) { my ($_obj, $_str, $_o_chk) = @_ } +sub decode_b { my ($_enc, $_b, $_o_chk) = @_ } +sub decode_q { my ($_enc, $_q, $_o_chk) = @_ } +sub encode($$;$) { my ($_obj, $_str, $_o_chk) = @_ } +sub needs_lines() {} +sub perlio_ok() {} + +package Encode::MIME::Header::ISO_2022_JP; +our @ISA = qw(); +sub _add_encoded_word { my ($_str, $_line, $_o_bpl) = @_ } +sub _mime_unstructured_header { my ($_oldheader, $_o_bpl) = @_ } +sub encode() {} + +package Encode::MIME::Name; +our @ISA = qw(); +sub get_mime_name($) {} + +package Encode::Unicode; +our @ISA = qw(); +sub decode_xs { my ($_obj, $_str, $_o_check) = @_ } +sub encode_xs { my ($_obj, $_utf8, $_o_check) = @_ } +sub renew() {} + +package Encode::Unicode::UTF7; +our @ISA = qw(); +sub decode($$;$) { my ($_obj, $_bytes, $_o_chk) = @_ } +sub encode($$;$) { my ($_obj, $_str, $_o_chk) = @_ } +sub needs_lines() {} + +package Encode::XS; +our @ISA = qw(); +sub cat_decode { my ($_obj, $_dst, $_src, $_off, $_term, $_o_check_sv) = @_ } +sub decode { my ($_obj, $_src, $_o_check_sv ) = @_ } +sub encode { my ($_obj, $_src, $_o_check_sv ) = @_ } +sub mime_name { my ($_obj) = @_ } +sub name { my ($_obj) = @_ } +sub needs_lines { my ($_obj) = @_ } +sub perlio_ok { my ($_obj) = @_ } +sub renew { my ($_obj) = @_ } +sub renewed { my ($_obj) = @_ } + +package Encode::utf8; +our @ISA = qw(); +sub decode_xs { my ($_obj, $_src, $_o_check_sv ) = @_ } +sub encode_xs { my ($_obj, $_src, $_o_check_sv ) = @_ } + +package encoding; +our @ISA = qw(); +sub _exception() {} +sub _get_locale_encoding() {} +sub import { my (@_more_paras) = @_ } +sub in_locale() {} +sub unimport() {} -- cgit v1.2.1