From 4f8a584d4ca39b4bb9f6715755ab9f6ee9f61b7d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 13 Sep 2016 13:00:27 +0200 Subject: add Glib::Object::Introspection fake package --- fake_packages/Glib/Object/Introspection.pm | 32 ++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 fake_packages/Glib/Object/Introspection.pm (limited to 'fake_packages') diff --git a/fake_packages/Glib/Object/Introspection.pm b/fake_packages/Glib/Object/Introspection.pm new file mode 100644 index 0000000..ddcb1a6 --- /dev/null +++ b/fake_packages/Glib/Object/Introspection.pm @@ -0,0 +1,32 @@ + +package Glib::Object::Introspection; +our @ISA = qw(); +sub CHECK_VERSION { my ($_class, $_major, $_minor, $_micro) = @_ } +sub _add_interface { my ($_class, $_basename, $_interface_name, $_target_package) = @_ } +sub _construct_boxed { my ($_class, $_package) = @_ } +sub _create_invoker_sub { my ($_o_handle_sentinel_boolean) = @_ } +sub _fetch_constant { my ($_class, $_basename, $_constant) = @_ } +sub _find_non_perl_parents { my ($_class, $_basename, $_object_name, $_target_package) = @_ } +sub _find_vfuncs_with_implementation { my ($_class, $_object_package, $_target_package) = @_ } +sub _get_field { my ($_class, $_basename, $_namespace, $_field, $_invocant) = @_ } +sub _install_overrides { my ($_class, $_basename, $_object_name, $_target_package) = @_ } +sub _invoke_fallback_vfunc { my ($_class, $_vfunc_package, $_vfunc_name, $_target_package, @_more_paras) = @_ } +sub _load_library { my ($_class, $_namespace, $_version, $_o_search_path) = @_ } +sub _register_boxed_synonym { my ($_class, $_reg_basename, $_reg_name, $_syn_gtype_function) = @_ } +sub _register_types { my ($_class, $_namespace, $_package) = @_ } +sub _set_field { my ($_class, $_basename, $_namespace, $_field, $_invocant, $_new_value) = @_ } +sub _use_generic_signal_marshaller_for { my ($_class, $_package, $_signal, $_o_args_converter) = @_ } +sub convert_enum_to_sv { my ($_class, $_package, $_n) = @_ } +sub convert_sv_to_enum { my ($_class, $_package, $_sv) = @_ } +sub invoke { my ($_class, $_basename, $_namespace, $_function, @_more_paras) = @_ } +sub setup { my ($_class, @_more_paras) = @_ } + +package Glib::Object::Introspection::GValueWrapper; +our @ISA = qw(); +sub DESTROY { my ($_sv) = @_ } +sub new { my ($_class, $_type_package, $_perl_value) = @_ } + +package Glib::Object::Introspection::_FuncWrapper; +our @ISA = qw(); +sub DESTROY { my ($_code) = @_ } +sub _invoke { my ($_code, @_more_paras) = @_ } -- cgit v1.2.1