CFStringRefのtypemap

perl

http://developer.apple.com/documentation/CoreFoundation/Reference/CFStringRef/Reference/reference.html

CFStringRef     T_CFSTRINGREF

INPUT
T_CFSTRINGREF
    $var = CFStringCreateWithCString(kCFAllocatorDefault, (char *) SvPV_nolen($arg), kCFStringEncodingUTF8);

これでXSで

Foo
Foo(CFStringRef str)
    CODE:
        Foo(str);

とか使える。

CFRelease(str)はどこで呼べばいいんじゃろか？