view release on metacpan or  search on metacpan

author_scripts/refcount_constructor.pl  view on Meta::CPAN

#!/usr/bin/env perl

# confirm the refcounts/flags are correct for
# objects returned by the XS constructor

use Modern::Perl;
use Devel::Peek;

use blib;

use Class::XSAccessor {
    constructor => 'hash_cxa',
};

use Class::XSAccessor::Array {
    constructor => 'array_cxa',