add Encode fake package

2 files changed, 180 insertions, 1 deletions

diff --git a/NEWS b/NEWS
index ff2c1fd..43be619 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,5 @@
 - fake packages:
-  o add Carp, Glib::Object::Introspection & XSLoader
+  o add Carp, Encode, Glib::Object::Introspection & XSLoader
   o update Glib & Gtk2 package
 
 Version 1.2.27 - 27 August 2016, by Thierry Vignaud
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() {}