File Coverage

blib/lib/Doubly.pm

Criterion	Covered	Total	%
statement	11	19	57.8
branch	1	2	50.0
condition			n/a
subroutine	4	7	57.1
pod			n/a
total	16	28	57.1

package Doubly;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.14';

# Shared storage for refs that need to survive across threads
our %_ref_storage;
our $_ref_next_id;
our $_sharing_initialized;

# Initialize sharing at compile time if threads are already loaded
BEGIN {
	# Initialize variables here before any runtime code overwrites them
	$Doubly::_ref_next_id = 0;
	$Doubly::_sharing_initialized = 0;

	if ($INC{'threads.pm'}) {
		require threads::shared;
		# Use fully qualified function name with explicit refs
		&threads::shared::share(\%Doubly::_ref_storage);
		&threads::shared::share(\$Doubly::_ref_next_id);
		$Doubly::_sharing_initialized = 1;
	}

	# Minimal helpers for XS to store/retrieve from shared hash
	# (shared hashes need Perl-side assignment to work correctly)
	sub _xs_store_ref { $_ref_storage{$_[0]} = $_[1] }
	sub _xs_get_ref   { $_ref_storage{$_[0]} }
	sub _xs_clear_ref { delete $_ref_storage{$_[0]} }
}

require XSLoader;
XSLoader::load('Doubly', $VERSION);

1;

__END__