package KinoSearch::Object::VTable;
use KinoSearch;
1;
__END__
__BINDING__
my $xs_code = <<'END_XS_CODE';
MODULE = KinoSearch PACKAGE = KinoSearch::Object::VTable
SV*
_get_registry()
CODE:
if (kino_VTable_registry == NULL)
kino_VTable_init_registry();
RETVAL = (SV*)Kino_Obj_To_Host((kino_Obj*)kino_VTable_registry);
OUTPUT: RETVAL
END_XS_CODE
Clownfish::Binding::Perl::Class->register(
parcel => "KinoSearch",
class_name => "KinoSearch::Object::VTable",
xs_code => $xs_code,
bind_methods => [qw( Get_Name Get_Parent )],
);
__COPYRIGHT__
Copyright 2007-2011 Marvin Humphrey
This program is free software; you can redistribute it and/or modify
under the same terms as Perl itself.