Curl Easy NativeCall

gistfile1.6pl

use NativeCall;

class Curl::Easy is repr( 'CPointer' ) {

    sub curl_easy_init ( ) returns Curl::Easy is native( 'libcurl' ) { * };
    sub curl_easy_cleanup ( Curl::Easy ) is native( 'libcurl' ) { * };

    method new ( ) {
        curl_easy_init();
    }

    submethod DESTROY {
        say 'destroying';
        curl_easy_cleanup( self );
    }
};

loop { Curl::Easy.new };