# 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);