| # Net::ZooKeeper - Perl extension for Apache ZooKeeper |
| # |
| # Licensed to the Apache Software Foundation (ASF) under one |
| # or more contributor license agreements. See the NOTICE file |
| # distributed with this work for additional information |
| # regarding copyright ownership. The ASF licenses this file |
| # to you under the Apache License, Version 2.0 (the |
| # "License"); you may not use this file except in compliance |
| # with the License. You may obtain a copy of the License at |
| # |
| # http://www.apache.org/licenses/LICENSE-2.0 |
| # |
| # Unless required by applicable law or agreed to in writing, software |
| # distributed under the License is distributed on an "AS IS" BASIS, |
| # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| # See the License for the specific language governing permissions and |
| # limitations under the License. |
| |
| TYPEMAP |
| Net::ZooKeeper T_ZK_HANDLE |
| Net::ZooKeeper::Stat T_ZK_HANDLE |
| Net::ZooKeeper::Watch T_ZK_HANDLE |
| |
| INPUT |
| T_ZK_HANDLE |
| if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV && |
| sv_derived_from($arg, \"${ntype}\")) { |
| $var = (HV*) SvRV($arg); |
| } |
| else { |
| Perl_croak(aTHX_ |
| \"$var is not a hash reference of type ${ntype}\"); |
| } |
| |
| OUTPUT |
| T_ZK_HANDLE |
| NOT_IMPLEMENTED |
| |