# Copyright (C) 2007-2008 Tomash Brechko. All rights reserved.
#
# This file is part of free software; you can redistribute it and/or
# modify it under the same terms as Perl itself, either Perl version
# 5.8.8 or, at your option, any later version of Perl 5 you may have
# available.
#
TYPEMAP
Cache_Memcached_Fast * T_CACHE_MEMCACHED_FAST
INPUT
T_CACHE_MEMCACHED_FAST
/*
We disable the derived check because it's kinda useless but
slow.
*/
if (1 || sv_derived_from($arg, \"Cache::Memcached::Fast\"))
{
IV tmp = SvIV((SV *) SvRV($arg));
$var = INT2PTR(Cache_Memcached_Fast *, tmp);
}
else
croak(\"$var is not of type Cache::Memcached::Fast\");
OUTPUT
T_CACHE_MEMCACHED_FAST
sv_setref_pv($arg, class, (void*) $var);